| line |
true |
false |
branch |
|
18
|
2 |
1 |
unless @inc |
|
19
|
19 |
0 |
if defined $_ |
|
23
|
0 |
3 |
if $self->{'include_perl'} |
|
29
|
3233 |
21274 |
if ($path and -f $path and /\.pm$/) |
|
30
|
26 |
3207 |
unless my $module = module_from_file($path) |
|
32
|
2516 |
691 |
unless my $distname = $self->{'db'}{'module2dist'}{$module} |
|
35
|
89 |
602 |
if ($dist->{'main_module'} eq $module) |
|
36
|
0 |
89 |
if $seen{$module}++ |
|
38
|
0 |
89 |
unless my $version = module_version($path) |
|
42
|
44 |
45 |
if ($self->{'cb'}) |
|
69
|
0 |
89 |
if (eval {
do {
$version->can("numify")
}
}) |
|
80
|
0 |
3233 |
unless open my $fh, "<", $path |
|
82
|
3207 |
21148 |
if ($line =~ /package\s+(.*?)\s*;/ms) |
|
89
|
26 |
3207 |
unless $module |