| File: | blib/lib/DateTime/Format/Genealogy.pm |
| Coverage: | 81.5% |
| line | % | coverage | condition | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 446 | 67 |
| not ref $params->{'date'} and my $date = $params->{'date'} | ||||||||||||
| 449 | 100 |
| $params->{'quiet'} // $self->{'quiet'} | ||||||||||||
| 450 | 100 |
| $params->{'strict'} // $self->{'strict'} | ||||||||||||
| 487 | 33 |
| $month_idx < 0 or $month_idx > 11 | ||||||||||||
| 511 | 100 |
| not $strict and $date =~ /^from (.+?) to (.+)/i | ||||||||||||
| 551 | 67 |
| $self->{'dfn'} //= "DateTime::Format::Natural"->new | ||||||||||||
| 553 | 100 |
| $date =~ /^\d/ and my $d = $self->_date_parser_cached($date) | ||||||||||||
| 574 | 67 |
| $rc and $calendar_type ne "DGREGORIAN" | ||||||||||||
| 586 | 100 |
| not $date =~ /^(?:Abt|ca?)/i and $date =~ /^[\w\s,]+$/ |