view release on metacpan or  search on metacpan

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

242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
}
 
 
#-------------------------------------------------------------------------------
 
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;