| line |
true |
false |
branch |
|
33
|
184 |
91 |
if $start |
|
38
|
275 |
0 |
!ref($input) ? : |
|
42
|
275 |
0 |
unless $$self{'input'}{'_is_open'} |
|
46
|
0 |
275 |
unless $$self{'grammar'} |
|
51
|
0 |
275 |
unless my $start_rule_ref = $start || $$self{'grammar'}{'tree'}{'+toprule'} || $$self{'grammar'}{'tree'}{'TOP'} & 'TOP' |
|
56
|
0 |
275 |
unless $$self{'receiver'} |
|
71
|
0 |
275 |
if ($$self{'receiver'}->can('initial')) |
|
77
|
0 |
275 |
$self->debug ? : |
|
84
|
0 |
275 |
if (not $match or $$self{'position'} < length ${$$self{'buffer'};}) |
|
89
|
275 |
0 |
if ($$self{'receiver'}->can('final')) |
|
108
|
5549 |
29 |
unless $assertion |
|
111
|
4851 |
727 |
if $max == 1 |
|
113
|
4 |
15497 |
if (not $count and $min == 0 and $kind eq 'all') |
|
116
|
432 |
20282 |
if ($max != 1) |
|
117
|
4 |
428 |
if ($$next{-'flat'}) { } |
|
118
|
4 |
0 |
ref $_ eq 'ARRAY' ? : |
|
123
|
0 |
432 |
if ($$self{'position'} = $position) > $$self{'farthest'} |
|
128
|
15439 |
5275 |
if (not $result or $assertion) |
|
129
|
0 |
15439 |
if ($$self{'position'} = $position) > $$self{'farthest'} |
|
133
|
54 |
5274 |
$$next{'-skip'} ? : |
|
|
5328 |
15386 |
$result ? : |
|
139
|
0 |
0 |
if $position > $$self{'farthest'} |
|
141
|
0 |
0 |
if @$match > 1 |
|
143
|
0 |
0 |
unless my $rule = $$self{'grammar'}{'tree'}{$ref} |
|
151
|
0 |
10666 |
unless my $rule = $$self{'grammar'}{'tree'}{$ref} |
|
153
|
7657 |
3009 |
unless my $match = $self->match_next($rule) |
|
154
|
0 |
3009 |
unless $$rule{'action'} |
|
167
|
6294 |
1663 |
unless $$buffer =~ /$regexp/g |
|
171
|
1625 |
38 |
if $$self{'position'} > $$self{'farthest'} |
|
176
|
26 |
1637 |
if $#+ > 1 |
|
187
|
1575 |
936 |
if (my $match = $self->match_next($elem)) { } |
|
188
|
1468 |
107 |
unless ($$elem{'+asr'} or $$elem{'-skip'}) |
|
194
|
0 |
936 |
if ($$self{'position'} = $position) > $$self{'farthest'} |
|
199
|
404 |
33 |
if $len > 1 |
|
206
|
744 |
6793 |
if (my $match = $self->match_next($elem)) |
|
220
|
0 |
0 |
$action =~ /^try_/ ? : |
|
222
|
0 |
0 |
unless $indent |
|
224
|
0 |
0 |
if $indent |
|
226
|
0 |
0 |
if length $snippet > 30 |
|
229
|
0 |
0 |
$indent ? : |
|
236
|
0 |
0 |
unless $$self{'throw_on_error'} |
|
250
|
0 |
0 |
$position < 50 ? : |
|
|
0 |
0 |
$position < 50 ? : |