| line |
true |
false |
branch |
|
20
|
66 |
0 |
exists $param{'IV'} ? : |
|
22
|
0 |
66 |
unless my $cipher = $param{'Cipher'} |
|
23
|
64 |
2 |
if (ref $cipher) { } |
|
28
|
0 |
2 |
if $@ |
|
30
|
0 |
0 |
if (not $key and exists $param{'Passphrase'}) |
|
34
|
0 |
2 |
unless $key |
|
49
|
0 |
22 |
$seed ? : |
|
|
0 |
22 |
unless my $bs = $seed ? 16 : $cipher->blocksize |
|
52
|
13 |
9 |
if length $blocks[-1] < $bs |
|
56
|
0 |
471 |
$seed ? : |
|
60
|
5 |
17 |
unless $last and length $last |
|
61
|
22 |
0 |
if (length $last) |
|
62
|
13 |
9 |
if length $last < $bs |
|
64
|
0 |
22 |
$seed ? : |
|
78
|
0 |
44 |
$seed ? : |
|
|
0 |
44 |
unless my $bs = $seed ? 16 : $cipher->blocksize |
|
81
|
0 |
44 |
length $blocks[-1] < $bs ? : |
|
87
|
0 |
999 |
$seed ? : |
|
93
|
44 |
0 |
if (length $last) |
|
94
|
0 |
44 |
$seed ? : |
|
100
|
4 |
40 |
if $cut > $bs |