Branch Coverage

blib/lib/Text/Delimited/Marpa.pm
Criterion Covered Total %
branch 68 114 59.6


line true false branch
258 0 14 if ($escape_char eq q['])
288 42 518 if $line =~ /event\s+=>\s+(\w+)/
332 0 62 if defined $opts{'options'}
333 62 0 if defined $opts{'text'}
334 0 62 if defined $opts{'pos'}
335 0 62 if defined $opts{'length'}
363 61 0 if (defined(my $value = $self->_process)) { }
371 0 0 if $self->options & print_errors()
378 0 1 if $self->options & print_errors()
415 0 62 if ($self->options & print_debugs())
448 0 897 if $event_name eq q['exhausted]
454 0 897 unless defined $pos
456 0 897 if $self->options & print_debugs()
458 67 830 if ($event_name eq 'close_delim') { }
68 762 elsif ($event_name eq 'open_delim') { }
762 0 elsif ($event_name eq 'text') { }
505 1 40 if ($$delimiter_frequency{$lexeme} != 0)
512 1 0 if ($self->options & $self->options & mismatch_is_fatal()) { }
522 0 0 if $self->options & print_warnings()
527 0 61 if ($self->recce->exhausted) { }
0 61 elsif (my $status = $self->recce->ambiguous) { }
534 0 0 if ($self->options & exhaustion_is_fatal()) { }
544 0 0 if $self->options & print_warnings()
550 0 0 if $#$terminals < 0
556 0 0 if ($self->options & ambiguity_is_fatal()) { }
0 0 elsif ($self->options & print_warnings()) { }
601 65 65 if $$start_item{'event_name'} ne 'open_delim'
613 6 71 if $$end_item{'event_name'} ne 'close_delim'
614 6 65 if $$start_item{'frequency'} != $$end_item{'frequency'}
616 38 27 if ($#span < 0) { }
6 21 elsif ($$start_item{'offset'} <= $span[$#span]) { }
638 1 20 if $#$node_stack > 0
682 0 897 if ($event_name eq q['exhausted])
693 0 897 if $self->options & print_debugs()
701 0 905 unless (${$self->known_events;}{$_})
714 8 889 if ($event_count > 1)
719 8 0 if ($lexeme =~ /["']/ and join(', ', @event_name) eq 'close_delim, open_delim') { }
725 0 8 if ($$delimiter_frequency{$lexeme} % 2 == 0) { }
729 0 0 if $self->options & print_debugs()
735 0 8 if $self->options & print_debugs()
766 0 14 if ($open eq '' or $close eq '')
787 0 14 if ($open =~ /\\/ or $close =~ /\\/)
799 0 14 if (CORE::length $open > 1 and $open =~ /'/ or CORE::length $close > 1 and $close =~ /'/)
811 14 0 unless $seen{'open'}{$open}
812 14 0 unless $seen{'close'}{$close}
821 9 5 if (CORE::length $open == 1) { }
823 1 8 $open eq '[' ? :
832 10 4 if (CORE::length $close == 1) { }
834 1 9 $close eq ']' ? :
843 14 0 if $seen{'open'}{$open} <= 1
844 14 0 if $seen{'close'}{$close} <= 1
846 2 12 if $prefix =~ /[\[\]]/
847 14 0 unless $prefix{$prefix}
851 14 0 if $prefix{$prefix} == 1
853 1 13 if $prefix =~ /[\[\]]/
854 12 2 unless $prefix{$prefix}
858 12 2 if $prefix{$prefix} == 1