| lib/Astro/Montenbruck/Time.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 40 | 1 | 74 | unless defined $arg{'gregorian_start'} |
| 51 | 43 | 29 | $mo > 2 ? : |
| 52 | 68 | 4 | if (after_gregorian($ye, $mo, $da, %arg)) { } |
| 66 | 13 | 5 | if ($arg{'gregorian'} and $i > -115860) |
| 75 | 3 | 15 | $g > 13.5 ? : |
| 76 | 3 | 15 | $mo < 2.5 ? : |
| 144 | 14 | 0 | $arg{'gregorian'} ? : |
| 153 | 2 | 2 | is_leapyear($yr, @_) ? : |