| line |
true |
false |
branch |
|
39
|
0 |
50 |
unless defined $_[0] and ref $_[0] eq 'ARRAY' |
|
41
|
48 |
2 |
unless defined $item->[0] and ref $item->[0] eq 'ARRAY' |
|
42
|
2 |
0 |
unless defined $_[0] |
|
43
|
0 |
0 |
if defined $item->[0][0] |
|
51
|
2 |
0 |
if ($TRANS and $NODE) { } |
|
62
|
1 |
271 |
unless defined $orig |
|
68
|
271 |
0 |
if (wantarray) { } |
|
73
|
1 |
269 |
if ($_ ne '') |
|
76
|
269 |
0 |
wantarray ? : |
|
89
|
6 |
310 |
if (s/^ \[ //x) { } |
|
|
17 |
293 |
elsif (s/^ \{ //x) { } |
|
96
|
96 |
265 |
if ($2) { } |
|
|
239 |
26 |
elsif (defined $1) { } |
|
|
24 |
2 |
elsif (defined $3) { } |
|
|
2 |
0 |
elsif (defined $4) { } |
|
110
|
315 |
0 |
wantarray ? : |
|
129
|
8 |
161 |
if (s/^,//x) |
|
132
|
12 |
149 |
if (my $is_expr = s/^=//) |
|
136
|
45 |
104 |
if (not s/^$re_text//) { } |
|
142
|
106 |
59 |
if defined $1 |
|
143
|
0 |
165 |
if defined $4 |
|
144
|
4 |
161 |
if (my $opn = $2 || $3) { } |
|
|
59 |
102 |
elsif (not defined $1 || defined $4) { } |
|
161
|
0 |
12 |
if (s/^,//x) |
|
167
|
18 |
9 |
if defined $1 |
|
168
|
1 |
26 |
if defined $4 |
|
169
|
12 |
15 |
if (my $opn = $2 || $3) { } |
|
|
4 |
11 |
elsif (not defined $1 || defined $4) { } |
|
184
|
127 |
144 |
if (s/^ ([\)\]\}])//x) |
|
185
|
0 |
127 |
if $1 ne $close |
|
189
|
0 |
143 |
if ($cnt and $len == length $_) |
|
190
|
0 |
0 |
defined $close ? : |
|
192
|
138 |
5 |
@pipe <= 1 ? : |
|
202
|
19 |
28 |
if (s/^ ([\)\]\}])//x) |
|
203
|
0 |
19 |
if $1 ne $close |
|
207
|
22 |
6 |
if (s/^($re_word | , )//x) { } |
|
|
4 |
2 |
elsif (s/^([\(\[\{])//) { } |
|
213
|
1 |
27 |
if (defined $prev and $prev == length $_) |
|
223
|
17 |
25 |
if (s/^ ([\)\]\}])//x) |
|
224
|
0 |
17 |
if $1 ne '}' |
|
228
|
25 |
0 |
if (s/^([\w\.\-]+) [:=] //x or s/^($re_other+) ,?//x) |
|
231
|
0 |
25 |
$str =~ s/^:// ? : |
|
234
|
1 |
24 |
@value > 1 ? : |
|
235
|
0 |
25 |
unless (length $_ < $len) |
|
240
|
0 |
17 |
if (@hash - 1) % 2 |