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{$_} ? : |