lib/App/MtAws/DateTime.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 6 | 26 | 23.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
47 | 0 | 0 | 0 | $_[0] % 100 != 0 and $_[0] % 4 == 0 |
60 | 0 | 0 | 0 | $m < 3 and is_leap($y1) |
61 | 0 | 0 | 0 | $m >= 3 and is_leap($y2) |
93 | 26249 | 0 | 0 | not is_y2038_supported() and $year <= 1901 || $year >= 2038 |
line | l | !l | condition |
---|---|---|---|
94 | 0 | 0 | $_year_month_shift{join $;, $year, $month} ||= [do { my($d, $y) = (0, $year); while ($y <= 1901) { $d -= number_of_leap_years($y, $y + 100, $month) * 86400 + 3153600000; $y += 100; }; while ($y >= 2038) { $d += number_of_leap_years($y - 100, $y, $month) * 86400 + 3153600000; $y -= 100; }; $y, $d }] |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
55 | 0 | 0 | 0 | $_leap_cache{join $;, $y1, $y2, $m < 3 ? '0' : '1'} ||= do { my $cnt = 0; foreach $_ ($y1 + 1 .. $y2 - 1) { ++$cnt if is_leap($_); }; ++$cnt if $m < 3 and is_leap($y1); ++$cnt if $m >= 3 and is_leap($y2); $cnt } |
72 | 1 | 1 | 24155 | $time < -30610224000 or $time > 253402300799 |
90 | 2 | 0 | 26247 | $sec == 60 or $sec == 61 |
93 | 0 | 0 | 0 | $year <= 1901 || $year >= 2038 |