| blib/lib/String/CyclicRotation.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 6 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 76 | 49 | 127 | 91 | $right < length $str and substr($str, $left, 1) eq substr($str, $right, 1) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 68 | 17 | 1 | 8 | $str1 eq $str2 or $str1 eq reverse($str2) |