| line | % | coverage | branch |
|---|
| 173 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 179 | 100 | T | F | $params ? : |
| 416 | 50 | T | F | if $_parse_depth > $MAX_PARSE_DEPTH |
| 421 | 100 | T | F | if (not ref $self) { } |
| 100 | T | F | elsif (ref $self eq 'HASH') { } |
| 422 | 100 | T | F | if (@_) |
| 431 | 100 | T | F | unless @_ |
| 442 | 100 | T | F | unless eval {
do {
validate_strict("schema", \%PARSE_DATETIME_SCHEMA, "input", $params);
1
}
} |
| 444 | 100 | T | F | if $validate_err |
| 446 | 100 | T | F | if (not ref $params->{'date'} and my $date = $params->{'date'}) |
| 456 | 100 | T | F | if ($date =~ s/^\@#D([A-Z ]+?)@\s*//) |
| 462 | 100 | T | F | if ($date =~ /^(?:bef|aft|abt)\s/i) |
| 463 | 100 | T | F | unless $quiet |
| 469 | 100 | T | F | if ($date =~ /^31\s+Nov/) |
| 481 | 100 | T | F | if ($date =~ /^(\d{4})-(\d{2})-(\d{2})$/) { } |
| 100 | T | F | elsif ($date =~ /^(.+\d)\s+-\s+(.+\d)$/) { } |
| 487 | 50 | T | F | if ($month_idx < 0 or $month_idx > 11) |
| 488 | 0 | T | F | unless $quiet |
| 493 | 100 | T | F | unless $quiet |
| 497 | 100 | T | F | unless $quiet |
| 504 | 100 | T | F | if ($date =~ /^bet (.+?) and (.+)/i) |
| 505 | 100 | T | F | if (wantarray) |
| 511 | 100 | T | F | if (not $strict and $date =~ /^from (.+?) to (.+)/i) |
| 512 | 100 | T | F | if (wantarray) |
| 518 | 100 | T | F | unless ($date =~ /^\d{3,4}$/) |
| 520 | 100 | T | F | if ($strict) { } |
| 521 | 100 | T | F | unless ($date =~ /^\d{1,2}\s+[A-Z]{3}\s+\d{3,4}$/i) |
| 522 | 100 | T | F | unless $quiet |
| 529 | 100 | T | F | if ($date =~ /^(\d{1,2})\s+Ao\x{FB}t\s+(\d{3,4})$/i) { } |
| 100 | T | F | elsif ($date =~ /^(\d{1,2})\s+([A-Z]{3,}+)\.?\s+(\d{3,4})$/i) { } |
| 100 | T | F | elsif ($date =~ /^(\d{1,2})\-([A-Z]{3})\-(\d{3,4})$/i) { } |
| 536 | 100 | T | F | if (my $abbrev = $MONTH_ALIAS{ucfirst lc $2}) { } |
| 100 | T | F | elsif (length $2 > 3) { } |
| 541 | 100 | T | F | unless $quiet |
| 553 | 100 | T | F | if ($date =~ /^\d/ and my $d = $self->_date_parser_cached($date)) |
| 556 | 100 | T | F | if $date =~ /\s\d{1,2}$/ |
| 560 | 100 | T | F | unless defined $d->{'canonical'} |
| 569 | 100 | T | F | unless ($dfn->success) |
| 570 | 100 | T | F | unless $quiet |
| 574 | 100 | T | F | if ($rc and $calendar_type ne "DGREGORIAN") |
| 586 | 100 | T | F | if (not $date =~ /^(?:Abt|ca?)/i and $date =~ /^[\w\s,]+$/) |
| 587 | 50 | T | F | if (my $rc = $dfn->parse_datetime($date)) |
| 588 | 100 | T | F | if ($dfn->success) |
| 591 | 100 | T | F | unless $quiet |