Branch Coverage

blib/lib/MarpaX/Repa/Lexer.pm
Criterion Covered Total %
branch 39 90 43.3


line true false branch
145 0 9 if (ref $tokens->{$token} eq 'HASH') { }
152 0 0 length $match == 1 ? :
9 0 ref $match ? :
182 0 9 unless @$expected
186 0 10 if $self->{'debug'}
189 0 10 if $self->{'debug'}
198 0 13 unless $self->{'tokens'}{$token}
200 0 0 do { $type eq 'CHAR' } ? :
0 0 do { $type eq 'STRING' } ? :
13 0 do { $type eq 'RE' } ? :
13 0 $type ? :
201 0 0 if $self->{'debug'}
205 10 3 if ($$buffer =~ /^($what)/)
207 3 7 if ($length == length $$buffer and $buffer_can_grow)
215 0 0 if $what eq substr($$buffer, 0, $length)
219 0 0 if $what eq $first_char
226 3 7 unless ($matched)
227 0 3 if $self->{'debug'}
231 0 7 unless ($length)
235 0 7 if $self->{'debug'}
237 0 7 if ($check and not &$check($self, $token, $match, $length))
239 0 0 if $self->{'debug'}
243 0 7 if ($self->{'longest_expected'})
244 0 0 if ($length > $longest) { }
0 0 elsif ($length < $longest) { }
245 0 0 if $self->{'debug'}
248 0 0 if $self->{'debug'}
257 0 7 if $self->{'debug'}
259 0 7 if (ref $how) { }
0 7 elsif ($how eq 'hash') { }
0 7 elsif ($how eq 'array') { }
7 0 elsif ($how eq 'scalar') { }
0 0 elsif ($how eq 'undef') { }
280 3 9 if ($rec->current_earleme == $rec->thin->furthest_earleme)
282 1 0 if $self->{'complete'} and length $$buffer || $buffer_can_grow
288 9 0 if (defined(my $events = eval { do { $rec->earleme_complete } })) { }
289 5 4 if ($events and $rec->exhausted)
292 1 1 if $self->{'complete'} and length $$buffer || $buffer_can_grow
296 2 2 if @$expected
298 0 0 if $self->{'debug'}
299 0 0 if $self->{'complete'}
305 1 1 if $buffer_can_grow and $self->{'min_buffer'} > length $$buffer
307 0 2 if $self->{'debug'}
329 13 0 $self->{'min_buffer'} ? :
344 2 0 $show ? :