| line |
true |
false |
branch |
|
91
|
4 |
70 |
if $type eq "&"
|
|
95
|
40 |
30 |
unless &_INSTANCE($after, "PPI::Structure")
|
|
99
|
0 |
30 |
unless defined $braces
|
|
100
|
18 |
12 |
if ($type eq '$') { }
|
|
|
6 |
6 |
elsif ($type eq '@') { }
|
|
|
6 |
0 |
elsif ($type eq '%') { }
|
|
106
|
12 |
0 |
if $before and $before->isa("PPI::Token::Cast") and $cast_which_trumps_braces{$before->content}
|
|
109
|
3 |
3 |
if $braces eq "[]"
|
|
110
|
3 |
3 |
if $braces eq "{}"
|
|
113
|
2 |
4 |
if $braces eq "{}"
|
|
116
|
4 |
2 |
if $braces eq "[]"
|
|
165
|
14889 |
4883 |
if ($t->{'line'} =~ /\G([\w:\']+)/cg)
|
|
172
|
1254 |
18518 |
if ($content eq "\@_" or $content eq "\$_")
|
|
178
|
19 |
18499 |
if ($content eq "\$::")
|
|
181
|
17 |
2 |
if ($nextchar eq "|")
|
|
188
|
52 |
18447 |
if ($content =~ /^[\$%*\@&]::(?:[^\w]|$)/)
|
|
194
|
55 |
18392 |
if ($content =~ /^(?:\$|\@)\d+/)
|
|
215
|
0 |
18392 |
unless $content =~ /$pattern/
|
|
217
|
64 |
18328 |
unless (length $1 eq length $content)
|