| line |
true |
false |
branch |
|
24
|
0 |
0 |
unless -d $dir |
|
30
|
0 |
0 |
unless $file =~ /\.p[lm]$/ |
|
42
|
0 |
1 |
unless open my $fh, "<", $file |
|
45
|
0 |
9 |
unless defined $_ |
|
46
|
0 |
9 |
if /^__(?:END|DATA)__$/ |
|
48
|
0 |
9 |
if $pod and $_ ne "=cut" |
|
49
|
0 |
9 |
if $here and $_ ne $here |
|
50
|
0 |
9 |
if (not $pod and /^=(\w+)/) { } |
|
|
0 |
18 |
elsif ($pod and $_ eq '=cut') { } |
|
57
|
0 |
9 |
if (not $here and my(@catch) = /(?:<<(['"])?(\w+)\1?){1,}/g) { } |
|
|
0 |
18 |
elsif ($here and $_ eq $here) { } |
|
64
|
0 |
9 |
if /^\s*#.*/ |
|
66
|
0 |
9 |
if (not $eval and /eval\s*(['"{])$/) { } |
|
|
0 |
9 |
elsif ($eval and /$eval(?:.*)?;$/) { } |
|
|
0 |
18 |
elsif ($eval and /\b(require|use)\s+($qr4name)/) { } |
|
67
|
0 |
0 |
$1 eq '{' ? : |
|
75
|
0 |
9 |
if (/^\b(?:if|unless)\s*\(.*\)\s*{$/) { } |
|
|
0 |
9 |
elsif ($if > 0 and /^\s*}$/) { } |
|
|
0 |
18 |
elsif ($if > 0 and /^\b(require|use)\s+($qr4name)/) { } |
|
83
|
0 |
9 |
if $eval or $if |
|
93
|
0 |
1 |
unless $file =~ s/\.p[lm]$// |
|
99
|
0 |
2 |
unless defined $name |
|
100
|
0 |
2 |
if exists $deps->{$name} |
|
101
|
0 |
2 |
if &first(sub {
$_ eq $name;
}
, @local) |
|
102
|
0 |
1 |
if not defined $version or $Upgrade or $toCpanfile |
|
123
|
0 |
9 |
if /^\b(?:require|use)\s+5\.\d{3}_?\d{3};$/ |
|
124
|
0 |
9 |
if (/use\s+(?:base|parent)\s+qw[\("']\s*((?:$qr4name\s*){1,})[\)"']/) { } |
|
|
0 |
9 |
elsif (/use\s+(?:base|parent|autouse)\s+(['"])?($qr4name)\1?/) { } |
|
|
0 |
9 |
elsif (/eval\s*(['"{])\s*(require|use)\s+($qr4name).*(?:\1|})/) { } |
|
|
0 |
9 |
elsif (/(?:if|unless)\s+\(.*\)\s*\{.*require\s+($qr4name).*\}/ or /require\s+($qr4name)\s+(?:if|unless)\s+\(?.*\)?/) { } |
|
|
5 |
4 |
elsif (/^\s*(?:require|use)\s+($qr4name)/) { } |
|
|
0 |
4 |
elsif (m[^\s*require\s*(["'])((?:\./)?(?:\w+/){0,}$qr4name\.pm)\1]) { } |
|
|
0 |
4 |
elsif (/^\s*(require|use)\s+(['"]?)(.*)\2/) { } |
|
140
|
0 |
0 |
-e "$myLib/$name" ? : |
|
144
|
0 |
5 |
unless defined $name |
|
145
|
0 |
5 |
if exists $pairs->{$name} |
|
146
|
0 |
5 |
if $name eq "Plack::Builder" |
|
147
|
3 |
2 |
if &first(sub {
$name eq $_;
}
, @pragmas) |
|
148
|
0 |
2 |
if $Upgrade and "Module::CoreList"->is_core($name) |
|
159
|
1 |
1 |
if $version |
|
160
|
1 |
0 |
unless eval "use lib '${myLib}'; require $name" |
|
168
|
0 |
0 |
unless "Module::CoreList"->is_core($name) |
|
173
|
0 |
1 |
if $str =~ /\.pm$/ |