| line |
true |
false |
branch |
|
51
|
0 |
0 |
if $version and $version < $MINIMUM_VERSION || $version >= $PERL_VERSION_WHICH_IMPLIES_WARNINGS
|
|
55
|
29 |
4 |
$warn_stmnt ? :
|
|
59
|
2 |
31 |
unless $stmnts_ref
|
|
66
|
0 |
205 |
if $stmnt->isa("PPI::Statement::End")
|
|
67
|
0 |
205 |
if $stmnt->isa("PPI::Statement::Data")
|
|
70
|
8 |
197 |
if (not defined $warn_line or $stmnt_line < $warn_line)
|
|
85
|
420 |
59 |
unless $elem->isa("PPI::Statement::Include")
|
|
86
|
0 |
59 |
if $elem->type ne "use"
|
|
90
|
0 |
59 |
unless $parent->isa("PPI::Document")
|
|
92
|
58 |
1 |
if (my $pragma = $elem->pragma) { }
|
|
|
1 |
0 |
elsif (my $module = $elem->module) { }
|
|
93
|
29 |
29 |
if $self->{'_equivalent_modules'}{$pragma}
|
|
96
|
0 |
1 |
if $self->{'_equivalent_modules'}{$module}
|
|
110
|
2 |
31 |
unless my $all_statements = $doc->find("PPI::Statement")
|
|
112
|
31 |
0 |
@wanted_statements ? :
|
|
119
|
30 |
266 |
if $elem->isa("PPI::Statement::Package")
|
|
120
|
61 |
205 |
if $elem->isa("PPI::Statement::Include")
|