| blib/lib/Acme/Roman.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 2 | 34 | 5.8 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 0 | 0 | if $_[0] =~ /[^IVXLCDM]/ |
| 36 | 1 | 0 | if ($arg =~ /^\d+$/) { } |
| 0 | 0 | elsif (Roman::isroman($arg)) { } | |
| 37 | 0 | 1 | if $arg > 3999 |
| 49 | 0 | 0 | is_roman($r1) ? : |
| 0 | 0 | ref $r1 ? : | |
| 50 | 0 | 0 | is_roman($r2) ? : |
| 0 | 0 | ref $r2 ? : | |
| 57 | 0 | 0 | is_roman($r1) ? : |
| 0 | 0 | ref $r1 ? : | |
| 58 | 0 | 0 | is_roman($r2) ? : |
| 0 | 0 | ref $r2 ? : | |
| 65 | 0 | 0 | is_roman($r1) ? : |
| 0 | 0 | ref $r1 ? : | |
| 66 | 0 | 0 | is_roman($r2) ? : |
| 0 | 0 | ref $r2 ? : | |
| 77 | 0 | 0 | if (is_roman($sub_name)) { } |