| line |
true |
false |
branch |
|
6
|
1 |
0 |
unless defined &DEBUG |
|
12
|
0 |
13 |
if (@_ > 1) |
|
16
|
0 |
0 |
$strict::ModuleName::DIE ? : |
|
20
|
0 |
13 |
unless ($filename =~ /.\.pm$/s) |
|
21
|
0 |
0 |
if ($filename =~ /.(\.pm)$/is) { } |
|
24
|
0 |
0 |
$strict::ModuleName::DIE ? : |
|
28
|
0 |
0 |
$strict::ModuleName::DIE ? : |
|
58
|
4 |
9 |
if ($filename =~ /$re/s) { } |
|
71
|
9 |
63 |
unless defined caller $back_count |
|
73
|
9 |
54 |
unless $sub_name eq '(eval)' or $sub_name =~ /\:\:BEGIN$/s |
|
78
|
0 |
9 |
unless $fn =~ s/\.pm$//s |
|
80
|
0 |
9 |
if ($real_depth == 1 and length $fn <= length $package and substr($package, 0 - length($fn)) eq $fn) |
|
92
|
0 |
9 |
if (grep ref($_), @INC) |
|
101
|
9 |
0 |
$strict::ModuleName::DIE ? : |