blib/lib/Lingua/Atinlay/Igpay.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 0 | 10 | 0.0 |
line | true | false | branch |
---|---|---|---|
23 | 0 | 0 | $tok eq uc $tok ? : |
24 | 0 | 0 | $tok =~ /^[A-Z]/ && !$alluc ? : |
25 | 0 | 0 | if ($tok =~ s/^([aeiou].*)/$1hay/sig or $tok =~ s/^([b-d,f-h,j-n,p-t,v-z]{2,})(.+)/$2$1ay/sig or $tok =~ s/^([b-d,f-h,j-n,p-t,v-z])(.+)/$2$1ay/sig) |
28 | 0 | 0 | if $alluc |
29 | 0 | 0 | if ($firstuc) |