| blib/lib/Time/Duration/en_PIGLATIN.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 8 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 35 | 12 | if ($word =~ /^(([bcdfghjklmnprstvwxz]|qu?)+)([aeiouy].*)/i) { } |
| 8 | 4 | elsif ($word =~ /[aeiouy]$/i) { } | |
| 55 | 44 | 1 | $orig =~ /[[:lower:]]/ ? : |
| 2 | 45 | $orig =~ /^[[:upper:]](.*[[:lower:]]|$)/ ? : |