Branch Coverage

blib/lib/Gedcom/Date.pm
Criterion Covered Total %
branch 11 20 55.0


line true false branch
27 7 13 if (my $locale = shift())
60 12 9 if (ref $$self{$_}) { }
72 0 0 if $switched
74 0 0 if $self->earliest > $other->latest
75 0 0 if $self->latest < $other->earliest
81 0 1 if $switched
83 0 1 if $self->earliest > $other->latest
84 1 0 if $self->latest < $other->earliest
92 26 13 unless ref $locale
111 12 43 if $$self{$_}