TreeOfTexts/inc/Module/Install/Scripts.pm

   1 #line 1
   2 package Module::Install::Scripts;
   3
   4 use strict 'vars';
   5 use Module::Install::Base ();
   6
   7 use vars qw{$VERSION @ISA $ISCORE};
   8 BEGIN {
   9         $VERSION = '1.00';
  10         @ISA     = 'Module::Install::Base';
  11         $ISCORE  = 1;
  12 }
  13
  14 sub install_script {
  15         my $self = shift;
  16         my $args = $self->makemaker_args;
  17         my $exe  = $args->{EXE_FILES} ||= [];
  18         foreach ( @_ ) {
  19                 if ( -f $_ ) {
  20                         push @$exe, $_;
  21                 } elsif ( -d 'script' and -f "script/$_" ) {
  22                         push @$exe, "script/$_";
  23                 } else {
  24                         die("Cannot find script '$_'");
  25                 }
  26         }
  27 }
  28
  29 1;