Branch Coverage

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