Branch Coverage

blib/lib/Gedcom/Grammar.pm
Criterion Covered Total %
branch 16 22 72.7


line true false branch
27 8 511 unless (exists $self->{'top'}{'structures'})
29 232 0 $_->{'structure'} ? :
40 0 6682 unless defined $tag
43 5 6677 unless exists $valid_items->{$tag}
49 1757 0 exists $self->{'min'} ? :
54 394 1363 $self->{'max'} eq 'M' ? :
1757 0 exists $self->{'max'} ? :
68 1247 510 if ($item->{'tag'}) { }
76 0 510 unless my($value) = $item->{'value'} =~ /<<(.*)>>/
77 0 510 unless my $structure = $self->structure($value)
92 8 502 if (exists $item->{'items'} and @{$item->{'items'};})