Branch Coverage

blib/lib/GraphViz2/Marpa.pm
Criterion Covered Total %
branch 0 146 0.0


line true false branch
191 0 0 unless (defined $self->logger)
444 0 0 if $line =~ /event\s+=>\s+(\w+)/
532 0 0 $lexeme =~ /^(\d+|\d+\.\d*|\.\d+)[;,]/ ? :
534 0 0 if ($numeric or $lexeme =~ /^(".*"|[A-Za-z]+)[;,]/s)
555 0 0 if substr($s, -1, 1) eq ','
611 0 0 if $#field < 0
626 0 0 if $#field > 0
630 0 0 if ($#field == 0) { }
661 0 0 if $node_id->{'name'} eq 'graph'
662 0 0 if $node_id->{'name'} eq 'strict'
685 0 0 if ($ref_type eq 'ARRAY') { }
0 0 elsif ($ref_type eq 'HASH') { }
0 0 elsif ($ref_type) { }
747 0 0 unless $string =~ /\G\s*(\S)/
752 0 0 if (substr($lexeme, 0, 1) eq '{') { }
761 0 0 $literal eq '=' ? :
776 0 0 if $self->logger
839 0 0 unless defined $pos
845 0 0 if ($event_name eq 'attribute_name' and substr($lexeme, 0, 1) eq '[')
855 0 0 if ($event_name eq 'attribute_name') { }
0 0 elsif ($event_name eq 'attribute_value') { }
0 0 elsif ($event_name eq 'close_brace') { }
0 0 elsif ($event_name eq 'close_bracket') { }
0 0 elsif ($event_name eq 'directed_edge') { }
0 0 elsif ($event_name eq 'node_name') { }
0 0 elsif ($event_name eq 'open_brace') { }
0 0 elsif ($event_name eq 'open_bracket') { }
0 0 elsif ($event_name =~ /$prolog_token/) { }
0 0 elsif ($event_name eq 'subgraph_id') { }
0 0 elsif ($event_name eq 'subgraph_literal') { }
0 0 elsif ($event_name eq 'undirected_edge') { }
859 0 0 if (substr($lexeme, 0, 1) eq '[')
869 0 0 if ($lexeme =~ /^
883 0 0 if substr($lexeme, -1, 1) eq ';'
885 0 0 if (substr($lexeme, -1, 1) eq ']')
895 0 0 if $original_lexeme ne $lexeme
900 0 0 if ($temp)
917 0 0 if substr($lexeme, -1, 1) eq ';'
920 0 0 if $original_lexeme ne $lexeme
931 0 0 if (substr($lexeme, 0, 1) eq '{')
945 0 0 if (substr($lexeme, -1, 1) eq ';')
949 0 0 if $lexeme eq ''
952 0 0 if (substr($lexeme, -1, 1) eq '}')
960 0 0 if (substr($lexeme, -1, 1) eq ';')
964 0 0 if $lexeme eq ''
967 0 0 if $original_lexeme ne $lexeme
971 0 0 if ($class{lc $lexeme}) { }
983 0 0 if $$stack[$#$stack]->name eq 'graph'
986 0 0 if $original_lexeme ne $lexeme
1016 0 0 if (substr($string, $pos, 1) =~ /[;,]/)
1024 0 0 if (my $ambiguous_status = $self->recce->ambiguous)
1027 0 0 if $#$terminals < 0
1049 0 0 if ($self->brace_count == 0)
1068 0 0 if ($name eq '{') { }
1101 0 0 if ($name eq '[') { }
1148 0 0 if (defined $value) { }
1165 0 0 if ($self->recce4html->exhausted)
1172 0 0 unless (defined $html)
1194 0 0 if ($event_name ne 'strict_literal')
1216 0 0 if ($self->description) { }
0 0 elsif ($self->input_file) { }
1242 0 0 if ($line[$i] =~ /(.*)\\$/) { }
1248 0 0 if (length $buffer > 0)
1277 0 0 if (defined(my $value = $self->_process)) { }
1298 0 0 if ($result == 0) { }
1312 0 0 if ($output_file)
1314 0 0 unless $self->renderer
1364 0 0 unless do { $self->known_events }->{$_}
1367 0 0 if ($event_count > 1)
1381 0 0 if ($special_case{$lexeme}) { }
0 0 elsif ($event_count == 2) { }
1396 0 0 if ($expected eq 'attribute_name!node_name')
1401 0 0 unless (defined $event_name)