| line |
true |
false |
branch |
|
24
|
6 |
1 |
if defined &$_ |
|
27
|
1 |
0 |
if /^cache$/i |
|
30
|
0 |
0 |
if /^global$/i |
|
33
|
0 |
0 |
if (/^:all$/i) |
|
58
|
0 |
0 |
unless my $tmp = 'IO::File'->new($f) |
|
|
0 |
0 |
acts_like_fh($f) ? : |
|
69
|
0 |
13 |
unless defined $pkg |
|
74
|
0 |
13 |
if exists $INC{$inc_path} and not wantarray |
|
83
|
9 |
38 |
if (ref $_) |
|
87
|
0 |
9 |
unless defined $ret |
|
89
|
3 |
6 |
unless acts_like_fh($ret) |
|
96
|
2 |
36 |
if -f $fullpath |
|
99
|
2 |
2 |
unless @paths > 0 |
|
101
|
0 |
2 |
wantarray ? : |
|
108
|
1 |
15 |
unless $pkg =~ /$PkgRe/ |
|
113
|
15 |
0 |
unless $path =~ /\.pm$/ |
|
121
|
2 |
0 |
UNIVERSAL::can($c, 'INC') ? : |
|
|
2 |
2 |
ref $c eq 'ARRAY' ? : |
|
|
5 |
4 |
ref $c eq 'CODE' ? : |
|
148
|
0 |
3 |
unless $mod =~ /$PkgRe/ |
|
166
|
0 |
3 |
unless $pkg =~ /$PkgRe/ |
|
173
|
1 |
4 |
unless exists $tbl->{$_} |