Branch Coverage

lib/Time/Precise.pm
Criterion Covered Total %
branch 47 94 50.0


line true false branch
93 1 8 if ($arg < 0)
94 0 1 unless $] >= 5.012
96 0 9 unless defined $arg
99 5 4 if (wantarray) { }
100 5 0 $gm ? :
101 5 0 if $Time::Precise::PRECISION
105 4 0 $gm ? :
106 0 4 unless defined $str
107 4 0 $Time::Precise::PRECISION ? :
156 2 0 unless ($Options{'no_range_check'})
157 0 2 if $month > 11 or $month < 0
162 0 2 if $month == 1 and _is_leap_year($year)
165 0 2 if $mday > $md or $mday < 1
166 0 2 if $hour > 23 or $hour < 0
167 0 2 if $min > 59 or $min < 0
168 0 2 if $sec > 59 or $sec < 0
173 0 2 unless ($Options{'no_range_check'} or abs $days < $MaxDay)
175 0 0 if $days > $MaxDay
183 0 2 if $year < 0 and not _is_leap_year($year)
193 3 1 if $_[0] % 4
194 0 1 if $_[0] % 100
195 0 1 if $_[0] % 400
206 0 0 if $_[5] < 0 and not _is_leap_year($_[5])
209 0 0 unless my $zone_off = $loc_for_ref_t - $ref_t
221 0 0 if (not $dst_off and $ref_t - 3600 - _timegm(&Time::Precise::localtime($loc_t - 3600)) < 0)
230 0 0 if $dst_off > 0
235 0 0 if $s != $_[0] or $m != $_[1] or $h != $_[2]
247 0 6 unless $year =~ /^\d+$/ and $month =~ /^\d+$/ and $day =~ /^\d+$/
251 0 6 unless $year
252 0 6 if $month < 1 or $month > 12
253 0 6 if $day < 1
254 2 4 if ($month == 2) { }
255 1 1 if (is_leap_year($year)) { }
256 0 1 if $day > 29
258 1 0 if $day > 28
261 2 2 if $day > $month_duration->{$month}
281 1 1 unless defined $time
282 2 0 $gmt ? :
309 0 1 if @_ % 2
310 1 0 $gm ? :
321 0 6 unless $p->{$i} =~ /^(-){0,1}\d+(\.\d+){0,1}$/
323 0 1 if $p->{'month'} < 1 or $p->{'month'} > 12
325 0 3 unless $p->{$i} >= 0 and $p->{$i} < 60
327 0 0 is_leap_year($p->{'year'}) ? :
0 1 int $p->{'month'} == 2 ? :
328 0 1 unless $p->{'day'} >= 1 and $p->{'day'} <= $max_day
329 1 0 $gm ? :