| blib/lib/DateTime/Format/Genealogy.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 24 | 66.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 89 | 2 | 14 | 8 | scalar @_ and scalar(@_) % 2 == 0 |
| 137 | 1 | 1 | 1 | not $strict and my $abbrev = $months{$2} |
| 144 | 5 | 0 | 14 | $date =~ /^\d/ and my $d = $self->_date_parser_cached($date) |
| 147 | 0 | 0 | 5 | 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 |
| 109 | 2 | 2 | 25 | $date =~ /^bef\s/i or $date =~ /^aft\s/i |
| 4 | 0 | 25 | $date =~ /^bef\s/i or $date =~ /^aft\s/i or $date =~ /^abt\s/i |