Branch Coverage

blib/lib/Gedcom/Comparison.pm
Criterion Covered Total %
branch 0 28 0.0


line true false branch
29 0 0 unless defined $r1
30 0 0 unless defined $r2
34 0 0 if exists $cache{$key}
43 0 0 unless (%cache or $INC{'Date/Manip.pm'})
68 0 0 if ($r1->tag eq 'DATE') { }
76 0 0 if defined $v1
80 0 0 $r1 && UNIVERSAL::isa($r1, 'Gedcom::Item') ? :
81 0 0 $r2 && UNIVERSAL::isa($r2, 'Gedcom::Item') ? :
88 0 0 unless $r2[$i2]->tag eq $tag
91 0 0 if $m > $match[1]
94 0 0 if ($match[2])
95 0 0 $match[2]->identical ? :
124 0 0 unless exists $self->{'match'}
134 0 0 $self->identical ? :