| line |
true |
false |
branch |
|
27
|
0 |
4 |
unless defined $legal_types{$type} |
|
29
|
0 |
4 |
unless ref $sub eq 'CODE' |
|
31
|
0 |
4 |
if $type eq 'outfix' and ref $name ne 'ARRAY' |
|
33
|
0 |
4 |
if $type eq 'outfix' and @$name != 2 |
|
36
|
1 |
3 |
if (ref $name eq 'ARRAY') { } |
|
53
|
3 |
0 |
if ord substr($$str_ref, $pos, 1) > 127 |
|
54
|
0 |
3 |
if ord substr($$str_ref, $pos, 1) > 223 |
|
55
|
0 |
3 |
if ord substr($$str_ref, $pos, 1) > 239 |
|
64
|
4 |
1 |
unless $$ops{$char}[0] eq 'outfix_r' |
|
78
|
4 |
1 |
unless $$ops{$char}[0] eq 'outfix_l' |
|
91
|
4 |
1 |
unless $$ops{$char}[0] eq 'infix' |
|
106
|
4 |
1 |
unless $$ops{$char}[0] eq 'prefix' |
|
119
|
4 |
1 |
unless $$ops{$char}[0] eq 'postfix' |
|
132
|
0 |
3 |
if ($dir > 0) { } |
|
138
|
0 |
0 |
if substr($str, $pos, 1) eq '(' |
|
139
|
0 |
0 |
if substr($str, $pos, 1) eq ')' |
|
140
|
0 |
0 |
if $balance == 0 |
|
150
|
6 |
9 |
if substr($str, $pos, 1) eq '(' |
|
151
|
3 |
12 |
if substr($str, $pos, 1) eq ')' |
|
152
|
3 |
12 |
if $balance == 0 |