| line |
true |
false |
branch |
|
142
|
1 |
8 |
$entry eq '__DATA__' ? : |
|
|
2 |
9 |
$is_url ? : |
|
147
|
2 |
15 |
$is_url ? : |
|
154
|
49 |
46 |
unless (my $full = $f->full_path) =~ /\.pm$/ |
|
156
|
12 |
34 |
if $parts[0] eq $arc->[1] |
|
157
|
25 |
21 |
if $parts[0] eq "lib" |
|
162
|
12 |
15 |
$mod ? : |
|
|
15 |
12 |
$lib ? : |
|
170
|
2 |
98 |
if $ignore and &$ignore($rel) |
|
171
|
82 |
16 |
unless my $rec = $cache{$rel} |
|
174
|
8 |
8 |
if $ENV{'PERL_LIB_ARCHIVE_EXTRACT'} or $under_debugger and not $under_cover |
|
175
|
0 |
16 |
unless $under_debugger |
|
176
|
0 |
16 |
unless open my $pfh, "<", $rec->{'content'} |
|
188
|
8 |
0 |
unless file_name_is_absolute($glob_ux) |
|
209
|
2 |
0 |
if ($rp->{'success'}) { } |
|
222
|
0 |
1 |
unless open my $fh, "<", $cfn |
|
233
|
2 |
0 |
if ($z) |
|
237
|
0 |
0 |
unless open my $cfh, "<", \$content |
|
246
|
4 |
4 |
$ver ? : |
|
248
|
0 |
8 |
unless open my $fh, ">", $fn |
|
256
|
6 |
2 |
unless my $txt = $ENV{'PERL_LIB_ARCHIVE_IGNORE'} |
|
258
|
0 |
2 |
unless $rx |
|
260
|
2 |
3 |
$neg ? : |