| blib/lib/Convert/PEM/CBC.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 26 | 61.5 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 6 | 2 | exists $param{'IV'} ? : |
| 19 | 0 | 8 | unless my $cipher = $param{'Cipher'} |
| 21 | 0 | 8 | if (ref $cipher) { } |
| 26 | 0 | 8 | if $@ |
| 28 | 6 | 2 | if (not $key and exists $param{'Passphrase'}) |
| 32 | 0 | 8 | unless $key |
| 47 | 3 | 0 | if length $blocks[-1] < $bs |
| 53 | 0 | 3 | unless $last and length $last |
| 54 | 3 | 0 | if (length $last) |
| 55 | 3 | 0 | if length $last < $bs |
| 69 | 0 | 5 | length $blocks[-1] < $bs ? : |
| 78 | 5 | 0 | if (length $last) |
| 83 | 2 | 3 | if $cut > $bs |