Add built local::lib

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

diff --git a/local-lib5/lib/perl5/Module/Install/Scripts.pm b/local-lib5/lib/perl5/Module/Install/Scripts.pm
new file mode 100644 (file)
index 0000000..323c538
--- /dev/null
+++ b/local-lib5/lib/perl5/Module/Install/Scripts.pm
@@ -0,0 +1,28 @@
+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;