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]) { } |