| line |
true |
false |
branch |
|
132
|
0 |
1 |
unless @_ |
|
140
|
0 |
1 |
unless @_ |
|
146
|
0 |
1 |
unless $V::NO_EXIT |
|
152
|
5 |
0 |
$first ? : |
|
170
|
0 |
8 |
unless -r $file |
|
184
|
6 |
0 |
unless @inc |
|
190
|
0 |
60 |
if ref $dir |
|
193
|
8 |
52 |
if (-r $filename) |
|
210
|
0 |
7 |
unless open my $mod, "<", $parsefile |
|
216
|
0 |
26 |
/^=cut/ ? : |
|
|
0 |
26 |
/^=(?!cut)/ ? : |
|
217
|
0 |
26 |
if $inpod or /^\s*#/ |
|
221
|
5 |
21 |
if (/([\$*])(([\w\:\']*)\bVERSION)\b.*\=/) { } |
|
|
2 |
19 |
elsif (/^\s* package \s+ [^\s]+ \s+ ([^;\{]+) [;\{]/x) { } |
|
240
|
7 |
19 |
if (defined $eval) |
|
243
|
0 |
7 |
if $@ |
|
244
|
0 |
7 |
unless defined $result |
|
260
|
0 |
9 |
if @_ |
|
270
|
9 |
8 |
if (exists $self->{$method}) |