| line |
true |
false |
branch |
|
22
|
2 |
2 |
if UNIVERSAL::isa($self, 'ARRAY') |
|
23
|
0 |
2 |
if $$self{'cleanup'} and $$self{'tmpdir'} |
|
27
|
0 |
0 |
$ENV{'IMPLODE_NO_CLEANUP'} ? : |
|
28
|
0 |
1 |
$ENV{'APP_IMPLODE_VERBOSE'} ? : |
|
40
|
0 |
0 |
unless open my $OUT, '>', $$self{'out'} |
|
41
|
0 |
0 |
if $self->verbose |
|
42
|
0 |
0 |
$script =~ s/^(#!.+?[\r\n]+)//m ? : |
|
47
|
0 |
0 |
if $self->verbose |
|
53
|
0 |
2 |
unless CORE::chdir $_[0] |
|
59
|
0 |
1 |
unless open my $SELF, '<', $PATH |
|
68
|
0 |
0 |
unless $self->dir_is_empty($self->tmpdir) |
|
75
|
1 |
2 |
unless opendir my $DH, $dir |
|
88
|
0 |
1 |
if $ENV{'APP_EXPLODE_VERBOSE'} |
|
95
|
20 |
24 |
if /^__END__\r?\n/ or $m |
|
100
|
0 |
1 |
unless $tar->extract |
|
108
|
0 |
1 |
unless open my $FH, '<', $file |
|
116
|
3 |
5 |
if -f $_ |
|
117
|
2 |
0 |
if @_ > 1 |
|
122
|
3 |
2 |
unless &$chmod() |
|
123
|
0 |
2 |
if $self->verbose |
|
132
|
2 |
1 |
unless &$chmod() and s[lib][lib/perl5] |
|
133
|
0 |
1 |
if $self->verbose |
|
145
|
1 |
1 |
unless $$self{'script'} = shift() |
|
147
|
1 |
0 |
unless -r $$self{'script'} |
|
148
|
0 |
0 |
if -e $$self{'out'} |
|
150
|
0 |
0 |
if $self->verbose |