initial commit of Catalyst skeleton app

[scpubgit/stemmatology.git] / TreeOfTexts / inc / Module / Install / Scripts.pm

diff --git a/TreeOfTexts/inc/Module/Install/Scripts.pm b/TreeOfTexts/inc/Module/Install/Scripts.pm
new file mode 100644 (file)
index 0000000..329bcc0
--- /dev/null
+++ b/TreeOfTexts/inc/Module/Install/Scripts.pm
@@ -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.00';
+       @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;