Branch Coverage

blib/lib/Gedcom/Date/Interpreted.pm
Criterion Covered Total %
branch 4 6 66.6


line true false branch
16 20 3 unless my($date, $phrase) = $str =~ /^INT (.*?) \((.*)\)$/
19 0 3 unless my $date_s = 'Gedcom::Date::Simple'->parse($date)
33 2 0 unless (defined $$self{'gedcom'})