Condition Coverage

blib/lib/Time/Str.pm
Criterion Covered Total %
condition 70 86 81.4


and 3 conditions

line !l l&&!r l&&r condition
567 1 6 0 $y % 4 == 0 && ($y % 100 != 0 || $y % 400 == 0)
573 38 1 6 $m == 2 and leap_year($y)
579 4 690 0 $y >= 1 && $y <= 9999 && ($m >= 1 && $m <= 12) && ($d >= 1 && ($d <= 28 || $d <= month_days($y, $m)))
586 1 0 236 $h >= 0 && $h <= 23 && $m >= 0 && $m <= 59
592 2 2 569 $h >= 0 && $h <= 23 && $m >= 0 && $m <= 59 && $s >= 0 && $s <= 60
601 0 0 32 $pivot_year >= 0 and $pivot_year <= 9899
620 0 0 22 $hour >= 1 and $hour <= 12
695 1 1 6 $pivot_year >= 0 and $pivot_year <= 9899
703 0 2 694 defined $string and $string =~ /$regexp/x
708 2 444 248 exists $r{'month'} and not $r{'month'} =~ /^[0-9]/
725 0 0 22 $r{'hour'} >= 1 and $r{'hour'} <= 12
777 666 13 2 $regexp == $RFC2616_Rx and not $r{'tz_utc'}
797 1 1 50 $precision >= 0 and $precision <= 9
991 1 1 93 $time >= '-62135596800' and $time < '253402300800'
1008 1 1 24 $offset >= -1439 and $offset <= 1439
1014 1 1 40 $precision >= 0 and $precision <= 9
1020 1 1 15 $nanosecond >= 0 and $nanosecond <= 999999999
1028 15 40 29 not defined $nanosecond and int $time != $time
1046 1 1 22 $local_time >= '-62135596800' and $local_time <= '253402300799'

or 2 conditions

line l !l condition
638 218 19 $m //= 0
718 692 2 $r{'month'} // 1
689 5 $r{'day'} // 1
731 561 14 $r{'minute'} // 0
530 45 $r{'second'} // 0
773 10 283 $r{'tz_offset'} //= 0
807 128 0 $m //= 0
808 127 1 $s //= 0
1031 29 0 $precision // 6
1069 37 0 $nanosecond //= 0

or 3 conditions

line l !l&&r !l&&!r condition
623 7 15 0 $meridiem eq "AM" or $meridiem eq "PM"
759 2 0 6 $sec != 0 or $nsec != 0
1051 44 0 38 defined $nanosecond or defined $precision