| line |
true |
false |
branch |
|
29
|
22 |
4 |
if (exists $export_ok{$_}) { } |
|
32
|
3 |
19 |
if (/\A\$(.*)\z/s) { } |
|
41
|
3 |
12 |
if ($errs ne "") |
|
68
|
139 |
12 |
if &_is_string($_[0]) |
|
73
|
12 |
122 |
unless (&is_module_name) |
|
74
|
6 |
6 |
&_is_string($_[0]) ? : |
|
91
|
0 |
11 |
"$]" < 5.011 && !("$]" >= 5.009004 && "$]" < 5.010001) ? : |
|
92
|
0 |
11 |
"$]" < 5.009 ? : |
|
127
|
5 |
8 |
if @_ >= 2 |
|
139
|
15 |
22 |
unless (eval {
do {
local $SIG{'__DIE__'};
&require_module($name);
1
}
}) |
|
140
|
13 |
2 |
if not $@ =~ /\ACan't locate \Q$fn\E .+ at \Q$FILE\E line/s or $@ =~ /^Compilation\ failed\ in\ require\ at\ \Q$FILE\E\ line/mx |
|
145
|
10 |
14 |
if @_ >= 2 |
|
160
|
28 |
38 |
unless (&is_module_spec) |
|
161
|
16 |
12 |
&_is_string($_[1]) ? : |
|
168
|
8 |
8 |
if defined $prefix |
|
170
|
8 |
8 |
if ($spec =~ s[\A(?:/|::)][]) { } |
|
173
|
4 |
4 |
if defined $prefix |