| blib/lib/String/CyclicRotation.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 41 | 0 | 32 | if @_ != 2 |
| 47 | 4 | 28 | if length $str1 != length $str2 |
| 48 | 2 | 26 | unless length $str1 |
| 63 | 26 | 49 | if ($$res[$k] == $#{$res;} - $k) |
| 68 | 18 | 8 | if $str1 eq $str2 or $str1 eq reverse($str2) |
| 89 | 156 | 44 | if ($k > $r) { } |
| 93 | 47 | 109 | if ($$res[$k] > 0) |
| 101 | 24 | 20 | if ($z2 < $beta) { } |