Branch Coverage

inc/Pegex/Parser.pm
Criterion Covered Total %
branch 45 86 52.3


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 1086 if (not $count and $min == 0 and $kind eq 'all')
116 40 1535 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 1050 525 if (not $result or $assertion)
129 0 1050 if ($$self{'position'} = $position) > $$self{'farthest'}
133 3 542 $$next{'-skip'} ? :
545 1030 $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 790 unless my $rule = $$self{'grammar'}{'tree'}{$ref}
153 538 252 unless my $match = $self->match_next($rule)
154 0 252 unless $$rule{'action'}
167 421 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 390 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 ? :