Branch Coverage

blib/lib/Genealogy/Gedcom/Reader/Lexer.pm
Criterion Covered Total %
branch 33 54 61.1


line true false branch
114 0 8 if (not defined $self->logger)
137 0 498 if ($self->check_length($id, $line)) { }
146 0 498 $self->parser->error ? :
157 0 1 if ($self->check_length($id, $line)) { }
166 0 1 $self->parser->error ? :
177 0 256 if ($self->check_length($id, $line)) { }
189 0 256 $self->parser->error ? :
204 0 1478 $length < $min || $length > $max ? :
206 0 1478 if ($result)
228 788 3213 if ($item->{'type'} =~ /^Link/)
233 571 16 if ($item->{'level'} == 0 and $item->{'xref'})
235 0 571 if ($target{$item->{'xref'}})
248 405 383 if $seen{$link->[0]}
250 0 383 unless $target{$link->[0]}
454 0 4501 if $self->logger
525 8 0 if ($self->input_file) { }
533 0 0 if $#$lines < 0
544 58 4001 if $record =~ /^$/
555 571 3430 if ($record =~ /^(0)\s+\@(.+?)\@\s+(_?(?:[A-Z]{3,4}))\s*(.*)$/) { }
16 3414 elsif ($record =~ /^(0)\s+(HEAD|TRLR)$/) { }
3414 0 elsif ($record =~ /^(\d+)\s+(_?(?:ADR[123]|[A-Z]{3,5}))\s*\@?(.*?)\@?$/) { }
557 571 0 defined $2 ? :
571 0 defined $4 ? :
565 3414 0 defined $3 ? :
574 0 8 if $self->report_items
815 3978 7 if ($$jump{$line->[$index][3]}) { }
3574 0 8 if $line->[$index][3] ne 'TRLR'