| 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 |