| blib/lib/DateTime/Format/Genealogy.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 12 | 21 | 57.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 89 | 1 | 13 | 6 | scalar @_ and scalar(@_) % 2 == 0 |
| 135 | 1 | 1 | 1 | not $strict and my $abbrev = $months{$2} |
| 141 | 0 | 0 | 14 | $date =~ /^\d/ and my $d = $self->_date_parser_cached($date) |
| 144 | 0 | 0 | 0 | not $date =~ /^(Abt|ca?)/i and $date =~ /^[\w\s]+$/ |
| 193 | 0 | 0 | 12 | $d and ref $d eq 'ARRAY' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 63 | 0 | 11 | 0 | ref $proto || $proto |
| 110 | 1 | 2 | 20 | $date =~ /^bef\s/i or $date =~ /^aft\s/i |