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) |