blib/lib/String/CommonSuffix.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 6 | 8 | 75.0 |
line | true | false | branch |
---|---|---|---|
19 | 0 | 6 | unless @_ |
24 | 0 | 9 | if (length $_ < $i) { } |
27 | 3 | 6 | if substr($_, -($i + 1), 1) ne substr($_[0], -($i + 1), 1) |
31 | 2 | 4 | $i ? : |