| line |
true |
false |
branch |
|
68
|
0 |
1 |
if $_[0] =~ /^\d+$/ |
|
74
|
0 |
1 |
unless opendir D, "$dir" |
|
76
|
1 |
10 |
if $file eq "base.pm" or $file eq "Common" |
|
77
|
2 |
8 |
unless $file =~ /^(.*)\.pm$/ |
|
93
|
8 |
0 |
unless -d "$dir/$namedir" |
|
100
|
1 |
0 |
if (-d "t/testcases") |
|
104
|
9 |
1 |
unless -d $File::Find::name |
|
148
|
0 |
1 |
unless -d $testdir |
|
155
|
7 |
1 |
if (defined $prefix) { } |
|
158
|
0 |
0 |
if length $np <= length $prefix and $np eq substr($prefix, 0, length $np) |
|
166
|
0 |
8 |
if $prefix_count < 0 |
|
182
|
0 |
8 |
unless open F, "> $tatest" |
|
200
|
8 |
0 |
-d 'blib' ? : |
|
202
|
0 |
8 |
unless open F, "> $pltest" |
|
250
|
0 |
0 |
unless -r "MANIFEST" |
|
252
|
0 |
0 |
if ($missing and @$missing) |
|
255
|
0 |
0 |
if ($extra and @$extra) |
|
263
|
0 |
0 |
unless -r "MANIFEST" |
|
266
|
0 |
0 |
if (open *F, "MANIFEST.SKIP") |
|
268
|
0 |
0 |
unless /^(\S+)(\s*.*)?$/ |
|
277
|
0 |
0 |
if (open *F, "MANIFEST.MODES") |
|
279
|
0 |
0 |
unless /^([0-7]+)\s+([0-7]+)\s+(.*?)\s*$/ |
|
284
|
0 |
0 |
if ($dirmode & 320) != 320 |
|
286
|
0 |
0 |
if ($filemode & 256) != 256 |
|
306
|
0 |
0 |
if $file =~ m[(^|/)(\.|\.\.)] |
|
307
|
0 |
0 |
if (grep {$file =~ /$_/;} @skip) |
|
319
|
0 |
0 |
if $file =~ m[^/] or $file =~ m[\.\./] |
|
323
|
0 |
0 |
if ($file =~ /$ml->{'regex'}/) |
|
334
|
0 |
0 |
unless stat $file |
|
336
|
0 |
0 |
-d _ ? : |
|
339
|
0 |
0 |
if ($oldperm != $newperm) |
|
341
|
0 |
0 |
unless chmod $newperm, $file |