| line |
true |
false |
branch |
|
18
|
2 |
1 |
unless @inc |
|
19
|
19 |
0 |
if defined $_ |
|
23
|
0 |
3 |
if $self->{'include_perl'} |
|
29
|
3236 |
21277 |
if ($path and -f $path and /\.pm$/) |
|
30
|
26 |
3210 |
unless my $module = module_from_file($path) |
|
32
|
2425 |
785 |
unless my $distname = $self->{'db'}{'module2dist'}{$module} |
|
35
|
95 |
690 |
if ($dist->{'main_module'} eq $module) |
|
36
|
0 |
95 |
if $seen{$module}++ |
|
38
|
0 |
95 |
unless my $version = module_version($path) |
|
42
|
47 |
48 |
if ($self->{'cb'}) |
|
69
|
0 |
95 |
if (eval {
do {
$version->can("numify")
}
}) |
|
73
|
95 |
0 |
defined $version ? : |
|
80
|
0 |
3236 |
unless open my $fh, "<", $path |
|
82
|
3210 |
21016 |
if ($line =~ /package\s+(.*?)\s*;/ms) |
|
89
|
26 |
3210 |
unless $module |