| blib/lib/Data/FormValidator/Constraints/Dates.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 26 | 80.7 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 2 | 4 | unless defined $date |
| 43 | 4 | 0 | if $fmt =~ /[YMD]/ |
| 47 | 2 | 2 | if $fmt =~ /[hms]/ |
| 50 | 3 | 1 | $date_test && $time_test ? : |
| 65 | 0 | 61 | unless defined $chr |
| 66 | 0 | 61 | unless defined $chr |
| 69 | 6 | 55 | if ($chr eq 'pp') { } |
| 72 | 6 | 49 | $q ? : |
| 85 | 2 | 9 | unless my($untainted_date, @data) = $date =~ /$format->[0]/ |
| 92 | 4 | 5 | if (exists $result{'p'}) |
| 93 | 4 | 0 | if $result{'p'} eq 'PM' and $result{'h'} != 12 |
| 94 | 0 | 4 | if $result{'p'} eq 'AM' and $result{'h'} == 12 |
| 98 | 43 | 11 | defined $result{$_} ? : |