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'})