Condition Coverage

blib/lib/Gedcom.pm
Criterion Covered Total %
condition 26 53 49.0


and 3 conditions

line !l l&&!r l&&r condition
193 0 0 10 $func =~ /^(add|get)_(.*)$/ and $tag = $Gedcom::Funcs{lc $2}
0 0 10 $func =~ /^(add|get)_(.*)$/ and $tag = $Gedcom::Funcs{lc $2} and exists $Top_tag_order{$tag}
206 8 2 2 defined $val and $tag eq 'NOTE'
377 7 0 0 $self->{'encoding'} eq 'utf-8' and $] >= 5.8
387 0 0 0 $self->{'encoding'} eq 'utf-8' and $] >= 5.8
571 288 37 2 not $all and @i
580 192 0 6 not $all and @i
589 96 0 0 not $all and @i
612 98 3514 1706 defined $c->{'xref'} and $c->{'xref'} =~ /$re/
3612 432 1274 defined $c->{'xref'} and $c->{'xref'} =~ /$re/ and $1 > $last

or 2 conditions

line l !l condition
349 1 0 $self->{'encoding'} || 'ansel'

or 3 conditions

line l !l&&r !l&&!r condition
225 0 4 0 $nxr or $_->{'xref'} eq $xref
240 0 8 0 ref $proto || $proto
311 0 0 0 getlogin || (getpwuid $<)[0] || $ENV{'USER'} || $ENV{'LOGIN'}
315 1 0 0 $name || $login
507 0 7 0 shift() || sort_sub()
531 30 0 56 $self->resolve_xref($name) || $self->resolve_xref(uc $name)
587 48 0 0 $soundex || ()