| blib/lib/Acme/Scurvy/Whoreson/BilgeRat/Backend/insultserver.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 8 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 69 | 4 | 49 | if /^\s*$/ |
| 70 | 18 | 31 | if /^\s*#/ |
| 71 | 0 | 31 | unless s/^\s*(adj|amt|noun)\s+//i |
| 102 | 1 | 2 | if substr($adj1, 0, 1) =~ /[aeiou]/ |