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