Branch Coverage

blib/lib/Gedcom/Date/Simple.pm
Criterion Covered Total %
branch 33 46 71.7


line true false branch
24 0 56 unless my($cal, $date) = $str =~ /^(?:\@#(.+)\@\s+)?(.+)$/
29 0 56 unless exists $months{$cal}
31 3 53 unless my($d, $month, $y) = $date =~ /^(?:(?:(\d+)\s+)?(\w+)\s+)?(\d+)$/
41 53 583 if $month eq $months{$cal}[$_]
43 0 53 unless defined $m
45 0 53 unless my $dt = eval { do { 'DateTime'->new('year', $y, 'month', $m, 'day', $d || 15) } }
55 3 53 unless my($dt, $known) = 'Gedcom::Date::Simple'->parse_datetime($str)
80 39 0 unless (defined $$self{'gedcom'})
83 31 8 if ($$self{'known'}{'d'}) { }
4 4 elsif ($$self{'known'}{'m'}) { }
118 0 2 if (not $$self{'known'}{'m'}) { }
0 2 elsif (not $$self{'known'}{'d'}) { }
135 0 2 if (not $$self{'known'}{'m'}) { }
0 2 elsif (not $$self{'known'}{'d'}) { }
148 0 0 if (not $$self{'known'}{'m'}) { }
0 0 elsif (not $$self{'known'}{'d'}) { }
165 3 6 if ($$self{'known'}{'d'}) { }
3 3 elsif ($$self{'known'}{'m'}) { }
180 39 6 if ($$self{'known'}{'d'}) { }
3 3 elsif ($$self{'known'}{'m'}) { }
197 4 17 if exists $p{'days'}
198 20 1 if exists $p{'months'}
204 9 12 unless ($secret)