Condition Coverage

blib/lib/Gedcom/Record.pm
Criterion Covered Total %
condition 68 98 69.3


and 3 conditions

line !l l&&!r l&&r condition
51 0 78 3013 defined $v && length $v
56 0 0 7 $r && do { $v = $r->full_value; defined $v && length $v ? $v : $r }
97 0 6 1 $record && $record->full_value
108 0 0 10069 $record && $record->full_value
133 5 0 1 defined $args{'xref'} and $g->{'value'} =~ /xref/i
140 23 2 51 defined $args{'val'} and $g->{'value'}
161 3 0 59 @_ > 1 and ref $_[-1] ne 'ARRAY'
260 0 6531 0 $t and $t ne $g
282 870 4705 15 $i->value and $i->value =~ /^pointer || 0)
312 5580 0 0 @i > 1 and not $m
366 12 13088 2056 defined $self->{'value'} and UNIVERSAL::isa($self->{'value'}, 'Gedcom::Record')
13100 0 2056 defined $self->{'value'} and UNIVERSAL::isa($self->{'value'}, 'Gedcom::Record') and exists $self->{'value'}{'xref'}
390 1517 13563 38409 defined $self->{'value'} and length $self->{'value'}
15080 37729 680 defined $self->{'value'} and length $self->{'value'} and not defined $grammar->{'value'}
409 607485 29521 2 $matches > $max and $max
456 0 5160 15240 $i and $i->{'xref'} eq $self->{'xref'}
485 0 7578 0 eval { do { 'Date::Manip'->VERSION(6) } } and not eval { do { 'Date::Manip'->VERSION(6.13) } }
492 0 6672 906 defined $self->{'tag'} and $self->{'tag'} =~ /^date$/i
493 0 0 906 defined $self->{'value'} and $self->{'value'}
529 2760 0 1736 $recurse and not exists $self->{'recursed'}
566 0 0 0 $r = $self->tag_record('BIRT') and my $date = $r->tag_record('DATE')

or 2 conditions

line l !l condition
252 0 6531 $test ||= 0
282 1295 3425 $r->pointer || 0
405 57309 579699 delete $counts{$tag} || 0
491 7572 6 shift() || '%A, %E %B %Y'

or 3 conditions

line l !l&&r !l&&!r condition
84 0 0 3322 $record eq 'FAMS' or $record eq 'FAMC'
133 0 1 4 defined $args{'xref'} || $g->{'value'} =~ /xref/i
1 4 1 defined $args{'xref'} and $g->{'value'} =~ /xref/i or not defined $args{'xref'} || $g->{'value'} =~ /xref/i
140 2 7 16 defined $args{'val'} || $g->{'value'}
51 16 9 defined $args{'val'} and $g->{'value'} or not defined $args{'val'} || $g->{'value'}
278 5590 0 0 $i->level =~ /^[+0]/ or $i->level == $r->level
439 5585 2820 365 $self->{'tag'} eq 'INDI' or $self->{'tag'} eq 'FAM'
506 642 0 258 not $dt =~ /^\s*(\d+)\s*$/ or length $1 > 6
524 9078 26 4496 exists $self->{'recursed'} or not defined $self->{'xref'}