package CatalystX::Crudite::Script::Starter;
use strict;
use warnings;
use Cwd qw(getcwd);
use Getopt::Long;
use CatalystX::Crudite;
use CatalystX::Crudite::Util qw(install_shared_files);
sub run {
GetOptions(
'verbose|v' => \my $verbose,
'overwrite|o' => \my $overwrite,
'dryrun|n' => \my $dryrun
) or die 'Getopt error';
my $dist_name = shift @ARGV || die "Need a dist name.\n";
$dist_name =~ s/::/-/g; # flexibly allow a dist name or a module name
my $dist_dir = getcwd . "/$dist_name";
install_shared_files(
dist_name => $dist_name,
dist_dir => $dist_dir,
share_path => 'starter',
verbose => $verbose,
overwrite => $overwrite,
dryrun => $dryrun,
vars => { crudite_version => $CatalystX::Crudite::VERSION },
);
}
1;