| 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 =~ /^'(.+)'$/) |