| line |
true |
false |
branch |
|
27
|
0 |
2 |
if is_plain_hashref($_[0]) |
|
34
|
0 |
2 |
if (my $dir = $options->{'dir'}) |
|
35
|
0 |
0 |
unless $guard = cwd_guard($dir) |
|
45
|
0 |
72 |
if $file =~ m[^\.\w+/]u or $file =~ m[^blib/]u or $file =~ m[^local/]u or $name =~ /^\./u or $name =~ /~$/u or $name =~ /^#.*#$/u or $name =~ /\.(?:old|bak|backup)$/iu or $file eq "Build" |
|
55
|
2 |
0 |
$options->{'use_default'} ? : |
|
60
|
2 |
0 |
if (-e $mfile) { } |
|
71
|
72 |
0 |
if not &$skip($_) and &$default($_) |
|
79
|
0 |
36 |
if $file =~ m[^(inc|local)/]u |
|
80
|
21 |
15 |
if $name =~ /\.(?:PL|p[lm]|psgi|t)$/u |
|
81
|
9 |
6 |
if $name =~ /\.\w+$/u and not $name =~ /\.bat$/u |
|
82
|
0 |
6 |
unless my $fh = "IO::File"->new($file, "r") |
|
84
|
0 |
6 |
if $first and $first =~ /^#!.*perl\b/u || $first =~ /--[*]-Perl-[*]--/u |