view release on metacpan or  search on metacpan

lib/Module/Starter/Plugin/App/Cmd.pm  view on Meta::CPAN

}


#-------------------------------------------------------------------------------

sub create_script {
    my $self = shift;
    
    my $script_dir = File::Spec->catdir($self->{basedir}, 'script');
    unless (-d $script_dir) {
        local @ARGV = $script_dir;
        mkpath @ARGV;
        $self->progress("Created $script_dir");
    }
    
    my $script_file = File::Spec->catfile($script_dir, $self->{script});
    $self->create_file($script_file, <<EOT);
#! /usr/bin/env perl

use $self->{main_module};
$self->{main_module}->run;