| blib/lib/Roman.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 114 | 22 | 0 | if $arg ne '' |
| 123 | 0 | 11 | unless isroman $arg |
| 128 | 3 | 21 | if $last_digit < $digit |
| 136 | 0 | 11 | unless 0 < $arg and $arg < 4000 |
| 140 | 8 | 36 | if (1 <= $digit and $digit <= 3) { } |
| 3 | 33 | elsif ($digit == 4) { } | |
| 3 | 30 | elsif ($digit == 5) { } | |
| 1 | 29 | elsif (6 <= $digit and $digit <= 8) { } | |
| 0 | 29 | elsif ($digit == 9) { } |