| line |
true |
false |
branch |
|
23
|
1 |
21 |
unless ref $spec{$key} eq 'ARRAY' |
|
31
|
1 |
10 |
unless _check_loaded($package, $label) |
|
38
|
4 |
6 |
unless ($ok) |
|
39
|
1 |
3 |
if @$missing |
|
40
|
1 |
3 |
if @$missing |
|
41
|
3 |
1 |
if @$extra |
|
42
|
3 |
1 |
if @$extra |
|
49
|
4 |
28 |
if $flagged{$fcn} |
|
50
|
10 |
18 |
if grep {$fcn eq $_;} @{$spec{'export'};} |
|
54
|
12 |
6 |
if ($ok) |
|
59
|
1 |
9 |
if @$missing |
|
60
|
1 |
9 |
if @$extra |
|
75
|
1 |
7 |
unless _check_loaded($package, $label) |
|
79
|
3 |
4 |
unless ($ok) |
|
80
|
2 |
1 |
if @$missing |
|
81
|
2 |
1 |
if @$extra |
|
93
|
0 |
3 |
unless _check_loaded($package, $label) |
|
99
|
3 |
0 |
unless ($ok) |
|
105
|
1 |
2 |
unless ($ok) |
|
106
|
0 |
1 |
if @$missing |
|
107
|
1 |
0 |
if @$extra |
|
124
|
20 |
2 |
if ($INC{$path}) { } |
|
180
|
164 |
0 |
ref \$stash->{$_} eq 'GLOB' ? : |
|
182
|
70 |
5 |
if substr($_, 0, 1) ne '_' and not $private{$_} |