| blib/lib/String/Palindrome.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 20 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 29 | 50 | @_ > 1 ? : |
| 32 | 1 | 78 | if (not defined $arg) { } |
| 61 | 17 | elsif (ref $arg) { } | |
| 40 | 1 | 60 | unless ref $arg eq 'ARRAY' |
| 41 | 1 | 59 | unless @$arg |
| 45 | 6 | 110 | if (not defined $a) { } |
| 2 | 108 | elsif (not defined $b) { } | |
| 46 | 2 | 4 | if defined $b |
| 52 | 22 | 86 | unless $a eq $b |
| 59 | 10 | 7 | $arg ne '' && $arg eq reverse($arg) ? : |