| line |
true |
false |
branch |
|
25
|
5 |
1 |
if defined &$_ |
|
28
|
1 |
0 |
if /^cache$/i |
|
31
|
0 |
0 |
if /^global$/i |
|
34
|
0 |
0 |
if (/^:all$/i) |
|
59
|
0 |
0 |
unless my $tmp = 'IO::File'->new($f) |
|
|
0 |
0 |
acts_like_fh($f) ? : |
|
70
|
0 |
13 |
unless defined $pkg |
|
75
|
0 |
13 |
if exists $INC{$inc_path} and not wantarray |
|
84
|
9 |
38 |
if (ref $_) |
|
88
|
0 |
9 |
unless defined $ret |
|
90
|
3 |
6 |
unless acts_like_fh($ret) |
|
97
|
2 |
36 |
if -f $fullpath |
|
100
|
2 |
2 |
unless @paths > 0 |
|
102
|
0 |
2 |
wantarray ? : |
|
109
|
0 |
13 |
unless $pkg =~ /$PkgRe/ |
|
114
|
13 |
0 |
unless $path =~ /\.pm$/ |
|
122
|
2 |
0 |
UNIVERSAL::can($c, 'INC') ? : |
|
|
2 |
2 |
ref $c eq 'ARRAY' ? : |
|
|
5 |
4 |
ref $c eq 'CODE' ? : |
|
149
|
0 |
3 |
unless $mod =~ /$PkgRe/ |
|
167
|
0 |
3 |
unless $pkg =~ /$PkgRe/ |
|
174
|
1 |
4 |
unless exists $$tbl{$_} |