| line |
true |
false |
branch |
|
33
|
8 |
6 |
if $start |
|
38
|
14 |
0 |
!ref($input) ? : |
|
42
|
14 |
0 |
unless $$self{'input'}{'_is_open'} |
|
46
|
0 |
14 |
unless $$self{'grammar'} |
|
51
|
0 |
14 |
unless my $start_rule_ref = $start || $$self{'grammar'}{'tree'}{'+toprule'} || $$self{'grammar'}{'tree'}{'TOP'} & 'TOP' |
|
56
|
0 |
14 |
unless $$self{'receiver'} |
|
71
|
0 |
14 |
if ($$self{'receiver'}->can('initial')) |
|
77
|
0 |
14 |
$self->debug ? : |
|
84
|
0 |
14 |
if (not $match or $$self{'position'} < length ${$$self{'buffer'};}) |
|
89
|
14 |
0 |
if ($$self{'receiver'}->can('final')) |
|
108
|
502 |
0 |
unless $assertion |
|
111
|
464 |
38 |
if $max == 1 |
|
113
|
4 |
1014 |
if (not $count and $min == 0 and $kind eq 'all') |
|
116
|
40 |
1463 |
if ($max != 1) |
|
117
|
4 |
36 |
if ($$next{-'flat'}) { } |
|
118
|
4 |
0 |
ref $_ eq 'ARRAY' ? : |
|
123
|
0 |
40 |
if ($$self{'position'} = $position) > $$self{'farthest'} |
|
128
|
978 |
525 |
if (not $result or $assertion) |
|
129
|
0 |
978 |
if ($$self{'position'} = $position) > $$self{'farthest'} |
|
133
|
3 |
542 |
$$next{'-skip'} ? : |
|
|
545 |
958 |
$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 |
754 |
unless my $rule = $$self{'grammar'}{'tree'}{$ref} |
|
153
|
502 |
252 |
unless my $match = $self->match_next($rule) |
|
154
|
0 |
252 |
unless $$rule{'action'} |
|
167
|
385 |
123 |
unless $$buffer =~ /$regexp/g |
|
171
|
123 |
0 |
if $$self{'position'} > $$self{'farthest'} |
|
176
|
0 |
123 |
if $#+ > 1 |
|
187
|
214 |
102 |
if (my $match = $self->match_next($elem)) { } |
|
188
|
191 |
23 |
unless ($$elem{'+asr'} or $$elem{'-skip'}) |
|
194
|
0 |
102 |
if ($$self{'position'} = $position) > $$self{'farthest'} |
|
199
|
62 |
0 |
if $len > 1 |
|
206
|
79 |
354 |
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 ? : |