| line |
true |
false |
branch |
|
84
|
0 |
2 |
unless defined $hash |
|
88
|
0 |
0 |
if (not defined $$main_ns{'version'} or $$main_ns{'version'} eq 'undef' or defined $$this_pm{'version'} and $$this_pm{'version'} ne 'undef' and $$main_ns{'version'} < $$this_pm{'version'}) |
|
108
|
0 |
2 |
unless open my $fh, '<', $file |
|
116
|
5 |
475 |
$pline =~ /^=cut/ ? : |
|
|
32 |
480 |
$pline =~ /^=(?!cut)/ ? : |
|
117
|
212 |
300 |
if $inpod or substr($pline, 0, 4) eq '=cut' |
|
120
|
57 |
243 |
if $pline =~ /^\s*$/ |
|
121
|
0 |
243 |
if $pline =~ /\b__(END|DATA)__\b/ |
|
124
|
3 |
240 |
if ($pline =~ /
(.*)
\bpackage\s+
([\w\:\']+)
\s*
( $ | [}\;] )
/x) |
|
135
|
3 |
240 |
if ($pkg) |
|
140
|
0 |
3 |
unless $pkg =~ /^[A-Za-z]/ |
|
141
|
0 |
3 |
unless $pkg =~ /\w$/ |
|
142
|
0 |
3 |
if $pkg eq 'main' |
|
145
|
3 |
0 |
if defined $version |
|
175
|
0 |
0 |
unless m[^script/(?!\.)]i |
|
183
|
0 |
0 |
if (not defined $scr{$scriptname}{'version'} or defined $version and $scr{$scriptname}{'version'} < $version) |
|
215
|
1 |
9 |
unless defined $meta and ref $meta eq 'HASH' |
|
217
|
1 |
1 |
unless exists $$meta{'requires'} or exists $$meta{'build_requires'} or exists $$meta{'configure_requires'} |
|
225
|
9 |
15 |
unless exists $$meta{$source} and ref $$meta{$source} eq 'HASH' |
|
229
|
8 |
6 |
unless exists $$req{$module} |