| line |
true |
false |
branch |
|
31
|
74 |
28 |
if (not $lexer->eoi) { } |
|
47
|
0 |
230 |
if $#{$ast;} ne $#{$args;} |
|
52
|
64 |
12 |
if (substr($sym, 0, 1) eq q['] or substr($sym, 0, 1) eq '"') { } |
|
54
|
4 |
60 |
$sym eq $quote . $val . $quote ? : |
|
56
|
2 |
10 |
$sym == $val ? : |
|
62
|
104 |
12 |
substr($sym, 0, 1) ne '_' ? : |
|
67
|
20 |
8 |
if ($#{$l;} >= 0 and $#{$val;} >= 0) { } |
|
|
4 |
4 |
elsif ($#{$l;} < 0 and $#{$val;} < 0) { } |
|
80
|
0 |
12 |
unless defined $$val{'type'} and defined $$val{'val'} |
|
82
|
0 |
12 |
if $$adt[0] ne $$val{'type'} |
|
83
|
2 |
10 |
if $#{$$adt[1];} != $#{$$val{'val'};} |
|
90
|
10 |
0 |
if (($x, $xs) = $val =~ /(.)(.*)/s) { } |
|
100
|
166 |
76 |
if ($status) { } |
|
117
|
28 |
152 |
unless defined $compiled_patterns{$pattern_sig} |
|
120
|
104 |
76 |
if ($status) |