line |
true |
false |
branch |
36
|
1 |
92 |
unless (defined $str) |
44
|
2 |
90 |
if (scalar @chars == 0) |
48
|
2 |
51 |
if ($chars[0] ne '$' and $chars[0] ne '@' and $chars[0] ne '%') |
59
|
4 |
1305 |
if ($char eq '\\' and $has_next) |
66
|
69 |
1236 |
if ($char eq q[']) |
73
|
123 |
1018 |
if (not $in_string and $char eq '-' and $has_next) |
74
|
114 |
9 |
if ($next eq '>') |
75
|
78 |
36 |
if (defined $elem) |
85
|
221 |
806 |
if (not $in_string and exists $symbols{$char}) |
86
|
97 |
124 |
if (defined $elem) |
95
|
24 |
877 |
unless ($has_next) |
105
|
1 |
87 |
if ($in_string) |
117
|
53 |
127 |
if ($tokens[$i] eq '{') |
120
|
52 |
128 |
if ($tokens[$i] eq '}') |
122
|
45 |
7 |
if ($brace_count == 0) |
129
|
1 |
45 |
unless defined $close_index |
130
|
0 |
45 |
if $close_index == 1 |
140
|
54 |
118 |
if ($tokens[$i] eq '[') |
144
|
53 |
119 |
if ($tokens[$i] eq ']') |
146
|
46 |
7 |
if ($bracket_count == 0) |
153
|
1 |
46 |
unless defined $close_index |
154
|
0 |
46 |
if $close_index == 1 |
165
|
98 |
159 |
if ($token =~ /^[\$\%\@]/) |
166
|
1 |
97 |
unless ($token =~ /^[\$\%\@]\w+$/) |
174
|
34 |
125 |
if ($token =~ /^-?\d+$/) |
179
|
0 |
125 |
if ($token eq '{') |
184
|
0 |
125 |
if ($token eq '}') |
188
|
0 |
125 |
if ($token eq '[') |
193
|
0 |
125 |
if ($token eq ']') |
197
|
95 |
30 |
if ($token eq '->') |
199
|
1 |
94 |
unless (defined $next) |
204
|
46 |
48 |
if ($next eq '{') { } |
|
47 |
1 |
elsif ($next eq '[') { } |
222
|
0 |
90 |
unless (defined $left_node) |
234
|
29 |
1 |
if ($token =~ /^'(.+)'$/) |