| blib/lib/Text/Bastardize.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 28 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 106 | 1 | 10 | "\U$w\E" eq $w ? : |
| 109 | 3 | 8 | if (substr($w, 0, 1) =~ /a|e|i|o|u/i) |
| 110 | 0 | 3 | $allupper ? : |
| 112 | 1 | 10 | "\u\L$w\E" eq $w ? : |
| 113 | 11 | 0 | unless $allupper |
| 118 | 10 | 0 | unless (substr($w, 0, 2) eq 'qu') |
| 122 | 8 | 3 | unless substr($w, -2, 2) eq 'ay' |
| 125 | 2 | 9 | if ($w =~ /[.!?,%]/s) |
| 127 | 2 | 0 | if $1 |
| 129 | 0 | 11 | if ($w =~ /[\$]/s) |
| 131 | 0 | 0 | if $1 |
| 134 | 0 | 11 | if $firstupper |
| 153 | 6 | 5 | unless length $w > 10 or length $w < 4 |
| 170 | 8 | 3 | if ($chars <= 6) |