update README and main module POD
This commit is contained in:
29
Netdisco/inc/Module/Install/Scripts.pm
Normal file
29
Netdisco/inc/Module/Install/Scripts.pm
Normal file
@@ -0,0 +1,29 @@
|
||||
#line 1
|
||||
package Module::Install::Scripts;
|
||||
|
||||
use strict 'vars';
|
||||
use Module::Install::Base ();
|
||||
|
||||
use vars qw{$VERSION @ISA $ISCORE};
|
||||
BEGIN {
|
||||
$VERSION = '1.06';
|
||||
@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;
|
||||
Reference in New Issue
Block a user