| line |
true |
false |
branch |
|
71
|
476 |
50 |
unless $OPEN_BUILTIN{$elem->content}
|
|
72
|
1 |
49 |
unless is_function_call($elem)
|
|
74
|
1 |
48 |
if 2 > @open_args
|
|
77
|
7 |
41 |
unless $fh
|
|
78
|
6 |
35 |
if $fh =~ / \A [*]? STD (?: IN|OUT|ERR ) \z /msx
|
|
84
|
22 |
5 |
if (is_function_call($close_token)) { }
|
|
|
3 |
3 |
elsif ($is_lexical and is_method_call($close_token)) { }
|
|
88
|
19 |
3 |
if ("ARRAY" eq ref $close_parameter)
|
|
91
|
19 |
3 |
if ($close_parameter)
|
|
93
|
15 |
4 |
if $fh eq $close_parameter
|
|
95
|
0 |
4 |
if (&any(sub {
|
|
100
|
0 |
0 |
if $stripped_fh eq $stripped_parameter
|
|
106
|
1 |
2 |
if $fh eq $tok
|
|
117
|
0 |
35 |
unless $parent
|
|
121
|
35 |
0 |
$self->{'_lines'} ? :
|
|
126
|
1 |
1641 |
if $candidate->isa("PPI::Statement::Sub")
|
|
128
|
0 |
1641 |
unless defined $candidate_loc->[0]
|
|
129
|
351 |
1290 |
if $candidate_loc->[0] < $open_loc->[0]
|
|
130
|
99 |
1191 |
if $candidate_loc->[0] == $open_loc->[0] and $candidate_loc->[1] <= $open_loc->[1]
|
|
131
|
42 |
1149 |
if defined $end_line and $candidate_loc->[0] > $end_line
|
|
132
|
1025 |
124 |
unless $candidate->isa("PPI::Token::Word")
|
|
135
|
11 |
24 |
unless $closes
|
|
144
|
35 |
0 |
$self->{'_lines'} && defined $open_loc->[0] ? :
|
|
148
|
40 |
38 |
unless $elem->scope
|
|
152
|
25 |
13 |
if $LOCAL_LEXICAL == $is_lexical
|
|
153
|
0 |
13 |
unless defined $end_line
|
|
160
|
0 |
13 |
unless $open_loc
|
|
161
|
0 |
13 |
unless my $elem_loc = $elem->location
|
|
163
|
0 |
13 |
unless my $last_kid = $elem->child($LAST_ELEMENT)
|
|
165
|
0 |
13 |
unless my $last_kid_loc = $last_kid->location
|
|
171
|
1 |
12 |
if $last_kid_loc->[0] > $end_line
|
|
182
|
29 |
19 |
if (2 == @{$tokens;}) { }
|
|
|
18 |
1 |
elsif (1 == @{$tokens;}) { }
|
|
183
|
25 |
2 |
if ("my" eq $tokens->[0] and $tokens->[1]->isa("PPI::Token::Symbol") and $SCALAR_SIGIL eq $tokens->[1]->raw_type)
|
|
193
|
9 |
9 |
if ($argument->isa('PPI::Token::Symbol')) { }
|
|
|
8 |
1 |
elsif ($argument->isa('PPI::Token::Word') and $argument eq uc $argument) { }
|
|
195
|
3 |
6 |
if ($SCALAR_SIGIL eq $sigil) { }
|
|
|
5 |
1 |
elsif ($GLOB_SIGIL eq $sigil) { }
|
|
219
|
13 |
5 |
unless $element->isa("PPI::Structure::Block")
|
|
222
|
0 |
5 |
if 1 != @children
|
|
225
|
0 |
5 |
unless $child->isa("PPI::Statement")
|
|
228
|
0 |
5 |
if 1 != @grandchildren
|