Branch Coverage

blib/lib/Regexp/Parsertron.pm
Criterion Covered Total %
branch 74 102 72.5


line true false branch
140 0 4 unless defined $opts{$param}
148 2 12 if $node->is_root
153 2 10 if ($opts{'uid'} == $uid)
171 3089 11752 if ($event_name =~ /^close_(?:bracket|parenthesis)$/)
178 3308 11533 if ($event_name =~ /^open_(?:bracket|parenthesis)$/ or $event_name =~ /_prefix$/)
196 872 7510 if $node->is_root
214 0 2 unless defined $target
221 2 24 if $node->is_root
225 3 21 if (index($meta->{'text'}, $target) >= 0)
242 0 7 if (not defined $wanted_uid or $wanted_uid < 1 or $wanted_uid > $self->uid)
255 7 42 if $node->is_root
260 7 35 if ($wanted_uid == $uid)
292 1525 0 if defined $opts{'re'}
293 0 1525 if defined $opts{'verbose'}
313 874 551 if (defined(my $value = $self->_process)) { }
315 0 874 if $self->verbose > 1
321 551 0 if ($self->ambiguous) { }
356 0 4 unless defined $opts{$param}
364 2 12 if $node->is_root
369 2 10 if ($opts{'uid'} == $uid)
387 0 1525 if $self->verbose
391 0 1525 if ($string_re eq '')
393 0 0 if $self->verbose
398 0 1525 if $self->verbose
400 0 1525 if ($self->verbose > 1)
432 10 14833 if $event_name eq q['exhausted]
439 0 14833 unless defined $pos
446 551 874 if (my $status = $self->recce->ambiguous) { }
860 14 elsif ($self->recce->exhausted) { }
451 533 18 if $#$terminals < 0
462 8 852 if ($pos + 1 == $length and substr($string_re, $pos, 1) eq ')')
470 0 860 if $self->verbose > 1
473 0 1425 if ($message)
477 0 0 if $self->verbose
480 0 1425 if $self->verbose
485 551 874 $self->ambiguous ? :
503 0 0 if $node->is_root
545 0 2 unless defined $target
554 2 36 if $node->is_root
558 4 32 if ($meta->{'text'} =~ /$re/)
578 0 2 unless defined $opts{$param}
586 1 6 if $node->is_root
591 1 5 if ($opts{'uid'} == $uid)
609 1525 2 &does($raw_re, 'Regexp') ? :
633 0 0 'x' =~ /$re/ ? :
658 184 14659 if ($event_count > 1)
662 121 63 if ($event_list eq 'caret, string') { }
23 40 elsif ($event_list eq 'query, string') { }
40 0 elsif ($event_list eq 'string, vertical_bar') { }
699 10 14833 if ($event_name eq q['exhausted])
711 0 14833 if ($self->verbose > 1)