| line |
true |
false |
branch |
|
70
|
0 |
1836 |
unless $file |
|
71
|
36 |
1800 |
unless -e $file |
|
72
|
36 |
1764 |
if $file =~ /\.ppm\.(tar(\.gz|\.bz2)?|tbz|tgz|zip)$/i |
|
74
|
36 |
1728 |
unless $file =~ /\.(tar(\.gz|\.bz2)?|tbz|tgz|zip)$/i |
|
82
|
180 |
1548 |
if $dist =~ /^(perl|ponie|kurila|parrot|Perl6-Pugs|v6-pugs)$/ |
|
101
|
90 |
1256 |
if ($file =~ /\.zip$/i) { } |
|
|
1069 |
187 |
elsif ($file =~ /\.(tar(\.gz)?|tgz)$/i) { } |
|
103
|
90 |
0 |
if $zip |
|
105
|
274 |
795 |
if ($extra_params{'use_tar'}) { } |
|
106
|
248 |
26 |
$file =~ /gz$/ ? : |
|
114
|
795 |
0 |
if $tar |
|
117
|
63 |
124 |
if ($extra_params{'use_tar'}) { } |
|
121
|
0 |
124 |
unless open my $fh, '-|', ('bzip2', '-dc'), $file |
|
123
|
124 |
0 |
if $tar |
|
136
|
0 |
2556 |
unless open my $fh, $parsefile |
|
139
|
291 |
58214 |
/^=cut/ ? : |
|
|
1979 |
58505 |
/^=(?!cut)/ ? : |
|
140
|
23336 |
37148 |
if $inpod or /^\s*#/ |
|
142
|
34654 |
2494 |
unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/ |
|
149
|
2494 |
0 |
$] >= 5.01 ? : |
|
190
|
292 |
2137 |
if ($$result{'error'} and $$result{'error'} =~ /trapped by operation mask|safe compartment timed out/i) { } |
|
|
0 |
2137 |
elsif ($$result{'error'}) { } |
|
205
|
2137 |
354 |
exists $$result{'result'} ? : |
|
209
|
2494 |
0 |
if (os_is('Unix')) { } |
|
|
0 |
0 |
elsif (os_is('MicrosoftWindows')) { } |
|
232
|
152 |
78 |
if $self->distversion =~ /(_|-TRIAL$)/ |
|
248
|
1346 |
76 |
unless (keys %{$$self{'modules'};}) |
|
257
|
1000 |
346 |
if ($meta and -e $meta) |
|
259
|
1000 |
0 |
if (not $@ and UNIVERSAL::isa($yaml, 'HASH') and exists $$yaml{'no_index'} and UNIVERSAL::isa($$yaml{'no_index'}, 'HASH')) |
|
264
|
872 |
128 |
if (exists $$yaml{'no_index'}{'directory'}) |
|
265
|
798 |
74 |
if (eval {
do {
@{$$yaml{'no_index'}{'directory'};}
}
}) { } |
|
|
74 |
0 |
elsif (not ref $$yaml{'no_index'}{'directory'}) { } |
|
273
|
66 |
934 |
if (exists $$yaml{'no_index'}{'file'}) |
|
274
|
66 |
0 |
if (eval {
do {
@{$$yaml{'no_index'}{'file'};}
}
}) { } |
|
|
0 |
0 |
elsif (not ref $$yaml{'no_index'}{'file'}) { } |
|
281
|
192 |
808 |
if (exists $$yaml{'no_index'}{'package'}) |
|
282
|
192 |
0 |
if (eval {
do {
@{$$yaml{'no_index'}{'package'};}
}
}) { } |
|
|
0 |
0 |
elsif (not ref $$yaml{'no_index'}{'package'}) { } |
|
289
|
62 |
938 |
if (exists $$yaml{'no_index'}{'namespace'}) |
|
290
|
62 |
0 |
if (eval {
do {
@{$$yaml{'no_index'}{'namespace'};}
}
}) { } |
|
|
0 |
0 |
elsif (not ref $$yaml{'no_index'}{'namespace'}) { } |
|
308
|
0 |
2491 |
unless open my $fh, $PM |
|
313
|
2446 |
45 |
if ($PM =~ /\bpackage[ \t]+([\w\:\']+)\s*($|[};])/) |
|
317
|
2229 |
217 |
unless exists $ignorepackages{$module} or grep {$module =~ /$_::/;} keys %ignorenamespaces |