| blib/lib/Gedcom/Date/Approximated.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 0 | 11 | if ($type eq 'ABOUT') { } |
| 10 | 1 | elsif (length $type > 3) { } | |
| 45 | 23 | 9 | unless my($abt, $date) = $str =~ /^(ABT|CAL|EST) (.*)$/ |
| 48 | 0 | 9 | unless my $date_s = 'Gedcom::Date::Simple'->parse($date) |
| 62 | 14 | 0 | unless (defined $self->{'gedcom'}) |