#!perl

use strict;
use warnings;
use Nephia::Setup;
use Getopt::Long;

my $flavor = 'Default';

GetOptions(
    "flavor=s" => \$flavor,
    "v|version"  => \&version,
);

my $appname = shift @ARGV || '';
help() unless $appname =~ /^\w+/;

my $setup = Nephia::Setup->new(
    flavor => $flavor,
    appname => $appname,
);
$setup->create;

sub help {
    print <<EOF;
Usage:

to create new application, 

  nephia-setup AppName [--flavor Flavor::Name]

show Nephia version,

  nephia-setup --version

EOF
    exit;
}

sub version {
    print 'Nephia ' . Nephia::Setup->get_version() . "\n";
    exit;
}
