| line |
true |
false |
branch |
|
24
|
0 |
0 |
unless -d $dir |
|
30
|
0 |
0 |
unless $file =~ /\.p[lm]$/ |
|
41
|
0 |
1 |
unless $1 |
|
42
|
0 |
1 |
unless open my $fh, "<", $file |
|
45
|
0 |
7 |
unless defined $_ |
|
46
|
0 |
7 |
if /^__(?:END|DATA)__$/ |
|
48
|
0 |
7 |
if $pod and $_ ne "=cut" |
|
49
|
0 |
7 |
if $here and $_ ne $here |
|
50
|
0 |
7 |
if (not $pod and /^=(\w+)/) { } |
|
|
0 |
14 |
elsif ($pod and $_ eq '=cut') { } |
|
57
|
0 |
7 |
if (not $here and my(@catch) = /(?:<<(['"])?(\w+)\1?){1,}/g) { } |
|
|
0 |
14 |
elsif ($here and $_ eq $here) { } |
|
64
|
0 |
7 |
if /^\s*#.*/ |
|
66
|
0 |
7 |
if (not $eval and /eval\s*(['"{])$/) { } |
|
|
0 |
7 |
elsif ($eval and /$eval(?:.*)?;$/) { } |
|
|
0 |
14 |
elsif ($eval and /\b(require|use)\s+($qr4name)/) { } |
|
67
|
0 |
0 |
$1 eq '{' ? : |
|
74
|
0 |
7 |
if $eval |
|
76
|
3 |
4 |
if (/\buse\b/) |
|
82
|
0 |
4 |
if (/^\b(?:if|unless)\s*\(.*\)\s*{$/) { } |
|
|
0 |
4 |
elsif ($if > 0 and /^\s*}$/) { } |
|
|
0 |
8 |
elsif ($if > 0 and /^\brequire\s+($qr4name)/) { } |
|
86
|
0 |
0 |
if $if < 0 |
|
91
|
3 |
1 |
unless /\b(require|use)\s+/ |
|
102
|
0 |
1 |
unless $file =~ s/\.pm$// |
|
108
|
0 |
1 |
unless defined $name |
|
109
|
0 |
1 |
if exists $deps->{$name} |
|
110
|
0 |
1 |
if &first(sub {
$_ eq $name;
}
, @local) |
|
111
|
0 |
0 |
if not defined $version or $Upgrade or $toCpanfile |
|
132
|
0 |
4 |
if /^\buse\s+v5(?:\.\d{2}){1,2}\s*;/ |
|
133
|
0 |
4 |
if /^\buse\s+5\.\d{3}(?:_\d{3})?;/ |
|
135
|
0 |
4 |
if (/use\s+(?:base|parent)\s+qw[\("']\s*((?:$qr4name\s*){1,})[\)"']/) { } |
|
|
0 |
4 |
elsif (/use\s+(?:base|parent|autouse)\s+(['"])?($qr4name)\1?/) { } |
|
|
0 |
4 |
elsif (/eval\s*(['"{])\s*(require|use)\s+($qr4name).*(?:\1|})/) { } |
|
|
0 |
4 |
elsif (/(?:if|unless)\s+\(.*\)\s*\{.*require\s+($qr4name).*\}/ or /require\s+($qr4name)\s+(?:if|unless)\s+\(?.*\)?/) { } |
|
|
4 |
0 |
elsif (/^\s*(?:require|use)\s+($qr4name)/) { } |
|
|
0 |
0 |
elsif (m[^\s*require\s*(["'])((?:\./)?(?:\w+/){0,}$qr4name\.pm)\1]) { } |
|
|
0 |
0 |
elsif (/^\s*(require|use)\s+(['"]?)(.*)\2/) { } |
|
151
|
0 |
0 |
-e "$myLib/$name" ? : |
|
155
|
0 |
4 |
unless defined $name |
|
156
|
0 |
4 |
if exists $pairs->{$name} |
|
157
|
0 |
4 |
if $name eq "Plack::Builder" |
|
158
|
3 |
1 |
if &first(sub {
$name eq $_;
}
, @pragmas) |
|
159
|
0 |
1 |
if not $Upgrade and "Module::CoreList"->is_core($name) |
|
170
|
0 |
1 |
if defined $version |
|
171
|
1 |
0 |
unless eval "use lib '${myLib}'; require $name" |
|
179
|
0 |
0 |
unless "Module::CoreList"->is_core($name) |
|
184
|
0 |
1 |
if $str =~ /\.pm$/ |