| line |
true |
false |
branch |
|
60
|
7 |
6 |
if (not defined $upper or $perl_version < parse_version($upper)) |
|
62
|
1 |
6 |
if (defined $lower and $perl_version >= parse_version($lower)) |
|
82
|
3 |
0 |
if ($ok) |
|
85
|
0 |
3 |
unless close $fh |
|
95
|
1 |
0 |
if ($ok) |
|
97
|
0 |
1 |
unless close $fh |
|
109
|
0 |
0 |
unless ($command) |
|
117
|
0 |
0 |
unless (exists $options{'buffer'}) |
|
127
|
0 |
0 |
if ($dir) |
|
129
|
0 |
0 |
unless (chdir $dir) |
|
135
|
0 |
0 |
unless ($ok) |
|
141
|
0 |
0 |
if ($origdir) |
|
142
|
0 |
0 |
unless (chdir $origdir) |
|
190
|
7 |
0 |
if ($filename =~ /[.]([^.]+) \z/msux) |
|
192
|
7 |
0 |
if (exists $type_for{$suffix}) |
|
197
|
0 |
7 |
if ($type eq "data") |
|
198
|
0 |
0 |
if (open my $fh, "<:raw", $filename) |
|
199
|
0 |
0 |
if (read $fh, my $data, 16) |
|
202
|
0 |
0 |
if (substr($data, $_->[0], $_->[1]) eq pack("H*", $_->[2])) |
|
208
|
0 |
0 |
unless close $fh |
|
223
|
0 |
230 |
unless opendir my $dh, $dir |
|
226
|
460 |
1182 |
if $entry eq "." or $entry eq ".." |
|
231
|
0 |
1182 |
if -l $path |
|
233
|
224 |
958 |
if (-d $path) { } |
|
238
|
958 |
0 |
if (@stat) |
|
240
|
12 |
946 |
if ($most_recent_mtime < $mtime) |
|
263
|
0 |
18 |
unless opendir my $dh, $dir |
|
267
|
36 |
21 |
if $entry eq "." or $entry eq ".." |
|
272
|
0 |
21 |
if -l $path |
|
274
|
15 |
6 |
if (-d $path) { } |
|
278
|
0 |
6 |
if (filetype($path) eq "executable") |