Branch Coverage

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


line true false branch
114 0 7 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 255 if ($self->check_length($id, $line)) { }
189 0 255 $self->parser->error ? :
204 0 1423 $length < $min || $length > $max ? :
206 0 1423 if ($result)
228 788 3110 if ($item->{'type'} =~ /^Link/)
233 530 14 if ($item->{'level'} == 0 and $item->{'xref'})
235 0 530 if ($target{$item->{'xref'}})
248 405 383 if $seen{$link->[0]}
250 0 383 unless $target{$link->[0]}
454 0 4397 if $self->logger
525 7 0 if ($self->input_file) { }
533 0 0 if $#$lines < 0
544 16 3898 if $record =~ /^$/
555 530 3368 if ($record =~ /^(0)\s+\@(.+?)\@\s+(_?(?:[A-Z]{3,4}))\s*(.*)$/) { }
14 3354 elsif ($record =~ /^(0)\s+(HEAD|TRLR)$/) { }
3354 0 elsif ($record =~ /^(\d+)\s+(_?(?:ADR[123]|[A-Z]{3,5}))\s*\@?(.*?)\@?$/) { }
557 530 0 defined $2 ? :
530 0 defined $4 ? :
565 3354 0 defined $3 ? :
574 0 7 if $self->report_items
815 3877 7 if ($$jump{$line->[$index][3]}) { }
3574 0 7 if $line->[$index][3] ne 'TRLR'