File Coverage

blib/lib/Module/Install/Scripts.pm
Criterion Covered Total %
statement 12 20 60.0
branch 0 4 0.0
condition 0 5 0.0
subroutine 4 5 80.0
pod 0 1 0.0
total 16 35 45.7


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