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:]]|$)/ ? : |