| line |
true |
false |
branch |
|
134
|
0 |
79 |
unless $op |
|
135
|
0 |
79 |
if $type ne 'infix' |
|
137
|
10 |
4 |
defined $list ? : |
|
|
65 |
14 |
ref $list eq 'ARRAY' ? : |
|
142
|
4 |
75 |
unless @list |
|
146
|
3 |
7 |
exists $ops{$op}{'res'}[1] ? : |
|
|
10 |
65 |
if @list == 1 |
|
149
|
3 |
62 |
if ($ops{$op}{'right'}) |
|
155
|
29 |
36 |
$ops{$op}{'chain'} ? : |
|
159
|
6 |
157 |
$ops{$op}{'right'} ? : |
|
165
|
75 |
101 |
if ($ops{$op}{'chain'}) { } |
|
168
|
20 |
55 |
if $args{'triangle'} |
|
172
|
18 |
83 |
if $args{'triangle'} |
|
176
|
14 |
51 |
if $args{'triangle'} |
|
177
|
21 |
30 |
if $ops{$op}{'chain'} |
|
188
|
2 |
6 |
if ref $lhs ne 'ARRAY' |
|
189
|
2 |
6 |
if ref $rhs ne 'ARRAY' |
|
204
|
2 |
9 |
if ref $lhs ne 'ARRAY' |
|
205
|
2 |
9 |
if ref $rhs ne 'ARRAY' |
|
219
|
24 |
47 |
if (@_ == 2) |
|
220
|
3 |
34 |
ref $_ eq 'HASH' ? : |
|
|
8 |
37 |
ref $_ eq 'ARRAY' ? : |
|
221
|
18 |
6 |
if ref $lhs eq 'ARRAY' |
|
226
|
0 |
15 |
ref $_ eq 'HASH' ? : |
|
|
0 |
15 |
ref $_ eq 'ARRAY' ? : |
|
227
|
6 |
0 |
if ref $lhs eq 'HASH' |
|
232
|
0 |
0 |
if ref $lhs eq 'SCALAR' |
|
239
|
10 |
37 |
if (ref $lhs eq 'HASH' and ref $rhs eq 'HASH') { } |
|
|
3 |
34 |
elsif (ref $lhs eq 'HASH') { } |
|
|
2 |
32 |
elsif (ref $rhs eq 'HASH') { } |
|
242
|
3 |
7 |
if ($dwim_left and $dwim_right) { } |
|
|
2 |
5 |
elsif ($dwim_left) { } |
|
|
2 |
3 |
elsif ($dwim_right) { } |
|
258
|
22 |
4 |
if (exists $$lhs{$key} and exists $$rhs{$key}) { } |
|
262
|
2 |
2 |
exists $$lhs{$key} ? : |
|
|
0 |
4 |
exists $ops{$op}{'res'}[1] ? : |
|
272
|
0 |
3 |
unless $dwim_right |
|
280
|
0 |
2 |
unless $dwim_left |
|
289
|
2 |
30 |
if ref $lhs ne 'ARRAY' |
|
290
|
6 |
26 |
if ref $rhs ne 'ARRAY' |
|
292
|
9 |
23 |
if (not $dwim_left || $dwim_right) { } |
|
|
14 |
9 |
elsif (not $dwim_left) { } |
|
|
7 |
2 |
elsif (not $dwim_right) { } |
|
293
|
0 |
9 |
if @$lhs != @$rhs |
|
307
|
0 |
2 |
@$lhs > @$rhs ? : |
|
314
|
12 |
99 |
if $dwim_left and $lhs_index > $#{$lhs;} |
|
315
|
20 |
91 |
if $dwim_right and $rhs_index > $#{$rhs;} |
|
331
|
6 |
408 |
unless $op |
|
332
|
365 |
43 |
if $type eq 'infix' or $type eq 'postcircumfix' |
|
341
|
0 |
0 |
if $op =~ /^ (?: pre | post ) fix : /x |
|
349
|
282 |
211 |
unless ($type) |
|
354
|
6 |
487 |
unless exists $ops{$op} |