1#line 1 2package Module::Install::Scripts; 3 4use strict 'vars'; 5use Module::Install::Base (); 6 7use vars qw{$VERSION @ISA $ISCORE}; 8BEGIN { 9 $VERSION = '0.93'; 10 @ISA = 'Module::Install::Base'; 11 $ISCORE = 1; 12} 13 14sub 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 291; 30