| line |
true |
false |
branch |
|
37
|
3 |
2 |
if (my $file = $opts{'file'}) { } |
|
|
2 |
0 |
elsif (my $code = $opts{'code'}) { } |
|
48
|
0 |
5 |
unless open my $fh, '-|', $^X, '-MDevel::TraceDeps', @cmd |
|
71
|
0 |
6 |
ref $package ? : |
|
74
|
6 |
0 |
if (my $r = ref $source) { } |
|
75
|
5 |
1 |
if ($r eq 'GLOB' or $source =~ /=GLOB\(0x[0-9a-f]+\)$/ or eval {
do {
overload::Method($source, '<>')
}
}) { } |
|
82
|
0 |
1 |
unless open $fh, '<', $source |
|
86
|
0 |
0 |
unless open $fh, '<', $source |
|
98
|
13 |
189 |
if (length $mod) { } |
|
99
|
13 |
0 |
unless $$self{'store'}{$mod} |
|
104
|
37 |
152 |
if ($rest eq '-----') |
|
111
|
34 |
118 |
if $key eq 'req' and $val =~ s/\.pm$// |
|
112
|
0 |
152 |
unless $current |
|
162
|
0 |
1 |
unless my $array = $$self{'store'}{$pack} |
|
182
|
0 |
4 |
if $seen{$key} |