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
609 1 6 0 $y % 4 == 0 && ($y % 100 != 0 || $y % 400 == 0)
615 42 1 6 $m == 2 and leap_year($y)
621 4 716 0 $y >= 1 && $y <= 9999 && ($m >= 1 && $m <= 12) && ($d >= 1 && ($d <= 28 || $d <= month_days($y, $m)))
628 1 0 236 $h >= 0 && $h <= 23 && $m >= 0 && $m <= 59
634 2 2 592 $h >= 0 && $h <= 23 && $m >= 0 && $m <= 59 && $s >= 0 && $s <= 60
643 0 0 41 $pivot_year >= 0 and $pivot_year <= 9899
662 0 0 22 $hour >= 1 and $hour <= 12
741 1 1 6 $pivot_year >= 0 and $pivot_year <= 9899
749 0 2 720 defined $string and $string =~ /$regexp/x
754 2 470 248 exists $r{'month'} and not $r{'month'} =~ /^[0-9]/
771 0 0 22 $r{'hour'} >= 1 and $r{'hour'} <= 12
823 692 13 2 $regexp == $RFC2616_Rx and not $r{'tz_utc'}
843 1 1 50 $precision >= 0 and $precision <= 9
1062 1 1 100 $time >= '-62135596800' and $time < '253402300800'
1079 1 1 24 $offset >= -1439 and $offset <= 1439
1085 1 1 40 $precision >= 0 and $precision <= 9
1091 1 1 15 $nanosecond >= 0 and $nanosecond <= 999999999
1099 15 47 29 not defined $nanosecond and int $time != $time
1117 1 1 22 $local_time >= '-62135596800' and $local_time <= '253402300799'

or 2 conditions

line l !l condition
680 218 19 $m //= 0
764 718 2 $r{'month'} // 1
715 5 $r{'day'} // 1
777 584 14 $r{'minute'} // 0
553 45 $r{'second'} // 0
819 10 304 $r{'tz_offset'} //= 0
853 134 0 $m //= 0
854 133 1 $s //= 0
1102 29 0 $precision // 6
1140 37 0 $nanosecond //= 0

or 3 conditions

line l !l&&r !l&&!r condition
665 7 15 0 $meridiem eq "AM" or $meridiem eq "PM"
805 2 0 6 $sec != 0 or $nsec != 0
1122 44 0 45 defined $nanosecond or defined $precision