Condition Coverage

blib/lib/Date/Parse.pm
Criterion Covered Total %
condition 41 78 52.5


and 3 conditions

line !l l&&!r l&&r condition
228 7 1 0 defined $hh and $hh <= 12
8 0 0 defined $hh and $hh <= 12 and $dtstr =~ s/ ([ap])\.?m?\.?\s/ /o
0 0 0 length $year > 2 and $year < 1901
0 0 8 not defined $year and $dtstr =~ s/\s(\d{2}(\d{2})?)[\s\.,]/ /o
0 0 0 $2 and $2 eq "dst"
0 0 8 defined $year and $year > 1900
8 0 0 defined $zone and $dst
232 11 242 224 defined $hh and $hh <= 12
253 222 2 defined $hh and $hh <= 12 and $dtstr =~ s/ ([ap])\.?m?\.?\s/ /o
5 1 0 length $year > 2 and $year < 1901
9 16 398 not defined $year and $dtstr =~ s/\s(\d{2}(\d{2})?)[\s\.,]/ /o
290 0 0 $2 and $2 eq "dst"
14 151 310 defined $year and $year > 1900
34 441 0 defined $zone and $dst
268 0 0 473 $month <= 11 and $day >= 1
0 0 472 $month <= 11 and $day >= 1 and $day <= 31
0 0 473 $month <= 11 and $day >= 1 and $day <= 31 and $hh <= 23
1 0 472 $month <= 11 and $day >= 1 and $day <= 31 and $hh <= 23 and $mm <= 59
0 1 472 $month <= 11 and $day >= 1 and $day <= 31 and $hh <= 23 and $mm <= 59 and $ss <= 59
279 440 0 0 $result == -1 and join("", $ss, $mm, $hh, $day, $month, $year) ne "595923311169"
291 33 0 1 $result == -1 and join("", $ss, $mm, $hh, $day, $month, $year) ne join("", (localtime -1)[0..5])

or 2 conditions

line l !l condition
248 459 14 0 $hh ||= 0
249 460 13 0 $mm ||= 0
250 414 58 0 $ss ||= 0

or 3 conditions

line l !l&&r !l&&!r condition
279 0 0 439 not defined $result or $result == -1 and join("", $ss, $mm, $hh, $day, $month, $year) ne "595923311169"
291 0 0 33 not defined $result or $result == -1 and join("", $ss, $mm, $hh, $day, $month, $year) ne join("", (localtime -1)[0..5])