| line |
true |
false |
branch |
|
52
|
44 |
14 |
$strict_stmnt ? :
|
|
56
|
3 |
55 |
unless $stmnts_ref
|
|
63
|
1 |
241 |
if $stmnt->isa("PPI::Statement::End")
|
|
64
|
1 |
240 |
if $stmnt->isa("PPI::Statement::Data")
|
|
67
|
29 |
211 |
if (not defined $strict_line or $stmnt_line < $strict_line)
|
|
82
|
501 |
50 |
unless $elem->isa("PPI::Statement::Include")
|
|
83
|
1 |
49 |
if $elem->type ne "use"
|
|
87
|
3 |
46 |
unless $parent->isa("PPI::Document")
|
|
89
|
37 |
9 |
if (my $pragma = $elem->pragma) { }
|
|
|
7 |
2 |
elsif (my $module = $elem->module) { }
|
|
|
2 |
0 |
elsif (my $version = $elem->version) { }
|
|
90
|
37 |
0 |
if $self->{'_equivalent_modules'}{$pragma}
|
|
93
|
5 |
2 |
if $self->{'_equivalent_modules'}{$module}
|
|
98
|
2 |
0 |
unless (&blessed($version) and $version->isa("version"))
|
|
99
|
1 |
1 |
if ("v" ne substr($version, 0, 1) and $version =~ tr/.// > 1)
|
|
105
|
2 |
0 |
if $PERL_VERSION_WHICH_IMPLIES_STRICTURE <= $version
|
|
119
|
2 |
56 |
unless my $all_statements = $doc->find("PPI::Statement")
|
|
121
|
55 |
1 |
@wanted_statements ? :
|
|
128
|
32 |
324 |
if $elem->isa("PPI::Statement::Package")
|
|
129
|
82 |
242 |
if $elem->isa("PPI::Statement::Include")
|