| line |
true |
false |
branch |
|
37
|
4 |
0 |
if $text =~ /^(\s+)/ |
|
42
|
0 |
2 |
if $_[1] and $_[1] eq '-run_script' |
|
56
|
0 |
0 |
$args ? : |
|
59
|
0 |
0 |
if (my $meth = $self->can("script_command_$cmd")) { } |
|
92
|
0 |
0 |
if $file and $to_stderr |
|
96
|
0 |
0 |
if (not $to_stderr and -e $file) |
|
97
|
0 |
0 |
unless unlink $file |
|
100
|
0 |
0 |
if ($to_stderr) { } |
|
|
0 |
0 |
elsif ($file) { } |
|
118
|
0 |
0 |
unless $opts{'use'} |
|
123
|
0 |
0 |
unless $opts{'args'} |
|
125
|
0 |
0 |
if ($output) { } |
|
149
|
0 |
0 |
unless (eval {
do {
require $t;
1
}
}) |
|
162
|
0 |
0 |
unless m[[\\/]\.packlist$] and -f $_ |
|
185
|
0 |
0 |
if ($dir_parts[$p] eq 'auto') |
|
194
|
0 |
0 |
unless $pack_base |
|
198
|
0 |
0 |
unless substr($source, 0, length $pack_base) eq $pack_base |
|
218
|
1 |
1 |
if (defined $file and -r $file) |
|
250
|
4 |
6 |
unless -f $_ |
|
251
|
0 |
6 |
if not /\.pm$/ and warn "File $File::Find::name isn't a .pm file - can't pack this -- if you hoped we were going to, things may not be what you expected later\n" |
|
259
|
0 |
1 |
unless open my $fh, '<', $file |
|
263
|
1 |
0 |
unless (index($shebang, '#!') == 0) |