| line |
true |
false |
branch |
|
134
|
1 |
6 |
$entry eq '__DATA__' ? : |
|
|
2 |
7 |
$is_url ? : |
|
139
|
2 |
13 |
$is_url ? : |
|
146
|
39 |
36 |
unless (my $full = $f->full_path) =~ /\.pm$/ |
|
148
|
8 |
28 |
if $parts[0] eq $arc->[1] |
|
149
|
17 |
19 |
if $parts[0] eq "lib" |
|
154
|
8 |
15 |
$mod ? : |
|
|
11 |
12 |
$lib ? : |
|
162
|
33 |
14 |
unless my $rec = $cache{$rel} |
|
164
|
14 |
0 |
if $ENV{'PERL_LIB_ARCHIVE_EXTRACT'} or $under_debugger |
|
165
|
0 |
14 |
unless $under_debugger |
|
166
|
0 |
14 |
unless open my $pfh, "<", $rec->{'content'} |
|
178
|
6 |
0 |
unless file_name_is_absolute($glob_ux) |
|
199
|
2 |
0 |
if ($rp->{'success'}) { } |
|
212
|
0 |
1 |
unless open my $fh, "<", $cfn |
|
223
|
2 |
0 |
if ($z) |
|
227
|
0 |
0 |
unless open my $cfh, "<", \$content |
|
236
|
6 |
8 |
$ver ? : |
|
238
|
0 |
14 |
unless open my $fh, ">", $fn |