blib/lib/Time/Precise.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 16 | 57 | 28.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
158 | 2 | 0 | 0 | $month == 1 and _is_leap_year($year) |
179 | 2 | 0 | 0 | $year < 0 and not _is_leap_year($year) |
202 | 0 | 0 | 0 | $_[5] < 0 and not _is_leap_year($_[5]) |
217 | 0 | 0 | 0 | not $dst_off and $ref_t - 3600 - _timegm(&Time::Precise::localtime($loc_t - 3600)) < 0 |
243 | 0 | 0 | 6 | $year =~ /^\d+$/ and $month =~ /^\d+$/ |
0 | 0 | 6 | $year =~ /^\d+$/ and $month =~ /^\d+$/ and $day =~ /^\d+$/ | |
321 | 0 | 0 | 3 | $p->{$i} >= 0 and $p->{$i} < 60 |
324 | 0 | 0 | 1 | $p->{'day'} >= 1 and $p->{'day'} <= $max_day |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
128 | 1 | 3 | 0 | $Cheat{pack 'ss', @_[4, 5]} ||= do { my $month = ($_[4] + 10) % 12; my $year = $_[5] - int($month / 10); 365 * $year + int($year / 4) - int($year / 100) + int($year / 400) + int(($month * 306 + 5) / 10) - $Epoc } |
153 | 0 | 0 | 2 | $month > 11 or $month < 0 |
161 | 0 | 0 | 2 | $mday > $md or $mday < 1 |
162 | 0 | 0 | 2 | $hour > 23 or $hour < 0 |
163 | 0 | 0 | 2 | $min > 59 or $min < 0 |
164 | 0 | 0 | 2 | $sec > 59 or $sec < 0 |
169 | 0 | 2 | 0 | $Options{'no_range_check'} or abs $days < $MaxDay |
231 | 0 | 0 | 0 | $s != $_[0] or $m != $_[1] |
0 | 0 | 0 | $s != $_[0] or $m != $_[1] or $h != $_[2] | |
248 | 0 | 0 | 6 | $month < 1 or $month > 12 |
319 | 0 | 0 | 1 | $p->{'month'} < 1 or $p->{'month'} > 12 |