line |
true |
false |
branch |
51
|
2 |
1 |
if $version and $version < $MINIMUM_VERSION || $version >= $PERL_VERSION_WHICH_IMPLIES_WARNINGS
|
55
|
40 |
13 |
$warn_stmnt ? :
|
59
|
5 |
48 |
unless $stmnts_ref
|
66
|
0 |
229 |
if $stmnt->isa("PPI::Statement::End")
|
67
|
1 |
228 |
if $stmnt->isa("PPI::Statement::Data")
|
70
|
24 |
204 |
if (not defined $warn_line or $stmnt_line < $warn_line)
|
85
|
624 |
75 |
unless $elem->isa("PPI::Statement::Include")
|
86
|
1 |
74 |
if $elem->type ne "use"
|
90
|
2 |
72 |
unless $parent->isa("PPI::Document")
|
92
|
65 |
7 |
if (my $pragma = $elem->pragma) { }
|
|
6 |
1 |
elsif (my $module = $elem->module) { }
|
93
|
36 |
29 |
if $self->{'_equivalent_modules'}{$pragma}
|
96
|
4 |
2 |
if $self->{'_equivalent_modules'}{$module}
|
110
|
4 |
49 |
unless my $all_statements = $doc->find("PPI::Statement")
|
112
|
48 |
1 |
@wanted_statements ? :
|
119
|
31 |
306 |
if $elem->isa("PPI::Statement::Package")
|
120
|
77 |
229 |
if $elem->isa("PPI::Statement::Include")
|