[catagits/Gitalist.git] / local-lib5 / lib / perl5 / Module / Install / Scripts.pm

package Module::Install::Scripts;

use strict 'vars';
use Module::Install::Base ();

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
	$VERSION = '0.91';
	@ISA     = 'Module::Install::Base';
	$ISCORE  = 1;
}

sub install_script {
	my $self = shift;
	my $args = $self->makemaker_args;
	my $exe  = $args->{EXE_FILES} ||= [];
        foreach ( @_ ) {
		if ( -f $_ ) {
			push @$exe, $_;
		} elsif ( -d 'script' and -f "script/$_" ) {
			push @$exe, "script/$_";
		} else {
			die("Cannot find script '$_'");
		}
	}
}

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