Branch Coverage

blib/lib/Date/Gregorian.pm
Criterion Covered Total %
branch 72 74 97.3


line true false branch
100 1 2750 if (15 <= $m) { }
2009 741 elsif (3 <= $m) { }
740 1 elsif (-9 <= $m) { }
106 2709 42 if (not $fixed and $s <= $d or $fixed and $s)
107 2706 3 0 <= $y ? :
119 6550 37 if ($s <= $n) { }
132 1409 5178 if (12 < $m)
146 27 5 if ($e <= $y) { }
147 26 1 0 <= $y ? :
153 6 2 if 28 <= $d and 28 < $d || 11 <= $g
160 21 11 if (31 < $d)
164 2 30 ($s <= $n xor $e <= $y) ? :
174 10134 8 if ($s <= $n)
175 10133 1 0 <= $y ? :
177 4 10130 if ($n < $s)
192 3 4601 if ($n < $base) { }
200 31 4570 if ($limit <= $n)
224 1213 35 if (ref $class) { }
238 6 9 if defined $e
265 205 2 if (defined $d and 1 <= $d and $d <= 31 and defined $m and 1 <= $m and $m <= 12 and defined $y and -1469871 <= $y and $y <= 5879489)
271 192 2 if ($dd == $d and $mm == $m and $yy == $y)
315 5 2 if (defined $d and 0 <= $d and $d <= 6 and defined $w and 1 <= $w and $w <= 53 and defined $y and -1469871 <= $y and $y <= 5879489)
323 3 2 if ($ydyw->[2] == $w)
334 852 4670 if 1 == $m
420 0 428 if 24855 < abs $dd
422 428 0 unless $delta
437 11 5 if (defined $rel and '>=' ne $rel)
438 1 10 if not $delta and '>' eq $rel
439 6 5 if '<' eq $rel or $delta and '<=' eq $rel
441 12 4 if ($delta)
461 18 505 if $dayno > $final
474 6 13 if $dayno < $final
485 3 2 unless ($datetime->time_zone->is_floating)
498 4 4 unless $self->[5]
519 1 1 $self->is_gregorian ? :
525 5 2 if ($string =~ / ^ # start of the string (-?\d+) # signed integer - # literal dash (\d+) # unsigned integer - # literal dash (\d+) # unsigned integer ([JG]?) # 'J' or 'G' or nothing \z # end of the string /x)
538 2 3 $4 ? :