| 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) |