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
222 1 1 0 defined $hh and $hh <= 12
2 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 2 not defined $year and $dtstr =~ s/\s(\d{2}(\d{2})?)[\s\.,]/ /o
0 0 0 $2 and $2 eq 'dst'
0 0 2 defined $year and $year > 1900
2 0 0 defined $zone and $dst
226 8 233 204 defined $hh and $hh <= 12
241 202 2 defined $hh and $hh <= 12 and $dtstr =~ s/ ([ap])\.?m?\.?\s/ /o
3 1 0 length $year > 2 and $year < 1901
6 8 389 not defined $year and $dtstr =~ s/\s(\d{2}(\d{2})?)[\s\.,]/ /o
281 0 0 $2 and $2 eq 'dst'
8 148 289 defined $year and $year > 1900
22 423 0 defined $zone and $dst
262 0 0 443 $month <= 11 and $day >= 1
0 0 442 $month <= 11 and $day >= 1 and $day <= 31
0 0 443 $month <= 11 and $day >= 1 and $day <= 31 and $hh <= 23
1 0 442 $month <= 11 and $day >= 1 and $day <= 31 and $hh <= 23 and $mm <= 59
0 1 442 $month <= 11 and $day >= 1 and $day <= 31 and $hh <= 23 and $mm <= 59 and $ss <= 59
273 422 0 0 $result == -1 and join('', $ss, $mm, $hh, $day, $month, $year) ne '595923311169'
285 21 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
242 431 12 0 $hh ||= 0
243 431 12 0 $mm ||= 0
244 396 46 0 $ss ||= 0

or 3 conditions

line l !l&&r !l&&!r condition
273 0 0 421 not defined $result or $result == -1 and join('', $ss, $mm, $hh, $day, $month, $year) ne '595923311169'
285 0 0 21 not defined $result or $result == -1 and join('', $ss, $mm, $hh, $day, $month, $year) ne join('', (localtime -1)[0..5])