| line |
true |
false |
branch |
|
39
|
1 |
637 |
unless $element
|
|
40
|
1 |
636 |
unless $element->isa("PPI::Statement")
|
|
41
|
382 |
254 |
if $element->isa("PPI::Statement::Expression")
|
|
45
|
0 |
254 |
unless $element_class
|
|
56
|
1 |
952 |
unless $element_class
|
|
57
|
467 |
485 |
unless $element->isa("PPI::Statement")
|
|
69
|
1 |
383 |
unless $element_class
|
|
70
|
1 |
382 |
unless $element->isa("PPI::Statement")
|
|
89
|
0 |
1533 |
unless my $element = shift()
|
|
91
|
0 |
1533 |
unless my $element_class = &blessed($element)
|
|
99
|
0 |
208 |
unless my $element = shift()
|
|
101
|
0 |
208 |
unless &blessed($element)
|
|
122
|
1 |
1077 |
unless $element
|
|
124
|
140 |
937 |
if $element->isa("PPI::Statement::Sub")
|
|
126
|
4 |
933 |
if (is_ppi_generic_statement($element))
|
|
129
|
3 |
1 |
if $first_element and $first_element->isa("PPI::Token::Word") and $first_element->content eq "sub"
|
|
143
|
2 |
286 |
unless $element
|
|
144
|
0 |
286 |
if is_subroutine_declaration($element)
|
|
147
|
140 |
646 |
if is_subroutine_declaration($element)
|
|
163
|
0 |
0 |
unless $element
|
|
164
|
0 |
0 |
unless $element->isa("PPI::Statement")
|
|
166
|
0 |
0 |
if ($element->isa('PPI::Statement::Include')) { }
|
|
|
0 |
0 |
elsif (is_ppi_generic_statement($element) and $element->schild(0)->content =~ / \A Readonly \b /msx) { }
|
|
168
|
0 |
0 |
if ($pragma = $element->pragma and $pragma eq "constant")
|
|
185
|
0 |
0 |
unless my(@arguments) = $include->arguments
|
|
188
|
0 |
0 |
unless defined $follower
|
|
196
|
0 |
525 |
unless my $element = shift()
|
|
203
|
525 |
134 |
if $next = $element->snext_sibling
|
|
213
|
0 |
195 |
unless my $element = shift()
|
|
215
|
0 |
195 |
unless $element->location
|
|
218
|
0 |
239 |
unless $element = $element->parent
|
|
222
|
0 |
189 |
unless $element->location
|
|
|
171 |
18 |
unless (@{[] unless $element->location;})[0] == $line
|
|
223
|
18 |
0 |
if $element->isa("PPI::Statement::Include")
|