Branch Coverage

blib/lib/Date/Korean.pm
Criterion Covered Total %
branch 23 34 67.6


line true false branch
23 6 6 if ($mjd < -100840)
51 0 12 if ($@)
52 0 0 if ($year <= 1582) { }
57 0 0 if ($@)
66 6 6 if ($days < 2299161)
68 0 1 if ($year == 1582 and $month == 10 and $day >= 5 and $day <= 14)
75 0 12 if ($days < $Date::Korean::MINDATE or $days > $Date::Korean::MAXDATE)
84 6 6 if ($Date::Korean::LEAPTABLE[$year] != 0 and $Date::Korean::LEAPTABLE[$year] <= $month) { }
85 4 2 if ($Date::Korean::LEAPTABLE[$year] == $month) { }
106 0 24 unless ($year >= 0 and $year < $#Date::Korean::YEARTABLE)
110 0 24 unless ($month >= 1 and $month <= 12)
114 0 24 if ($leap != 0 and $Date::Korean::LEAPTABLE[$year] - 1 != $month)
120 8 16 if ($leap == 1 and $month + 1 == $Date::Korean::LEAPTABLE[$year]) { }
4 20 elsif ($Date::Korean::LEAPTABLE[$year] != 0 and $Date::Korean::LEAPTABLE[$year] <= $month) { }
129 0 24 if ($day < 1 or $days >= $Date::Korean::MONTHTABLE[$months + 1])
134 12 12 if ($days + $Date::Korean::MINDATE < 2299161) { }
152 176 94 if ($x < $$a[$mid]) { }