| line |
true |
false |
branch |
|
46
|
1 |
15 |
unless $impl
|
|
50
|
0 |
15 |
if ($@)
|
|
53
|
0 |
15 |
if $DEBUG
|
|
59
|
0 |
10 |
if $DEBUG
|
|
66
|
0 |
10 |
if $DEBUG
|
|
71
|
0 |
10 |
unless ($iv_len == $cipher->iv_len)
|
|
79
|
0 |
10 |
if $DEBUG
|
|
84
|
0 |
10 |
if $DEBUG
|
|
88
|
0 |
10 |
if $DEBUG
|
|
92
|
0 |
10 |
unless ($hmac eq $fields->{'hmac'})
|
|
98
|
0 |
10 |
if $DEBUG
|
|
112
|
4 |
1 |
if (my $len = $cipher_obj->iv_len)
|
|
120
|
0 |
5 |
if $DEBUG
|
|
124
|
0 |
5 |
if $DEBUG
|
|
128
|
0 |
5 |
if $DEBUG
|
|
134
|
0 |
5 |
if $DEBUG
|
|
150
|
0 |
5 |
if $DEBUG
|
|
155
|
0 |
5 |
if $DEBUG
|
|
159
|
0 |
5 |
if $DEBUG
|
|
171
|
0 |
4 |
unless sysopen my $urand, '/dev/urandom', 0
|
|
172
|
0 |
4 |
unless binmode $urand
|
|
173
|
0 |
4 |
unless sysread $urand, $iv, $len
|
|
175
|
0 |
4 |
if $@
|
|
178
|
0 |
4 |
if (length $iv < $len)
|
|
187
|
5 |
0 |
if ($bsize)
|
|
200
|
3 |
12 |
$fields->{'cipher'} == 0 ? :
|
|
206
|
12 |
3 |
if $fields->{'iv_len'} > 0
|
|
207
|
8 |
7 |
if $fields->{'key_len'} > 0
|
|
219
|
0 |
10 |
unless ($otk eq 'OTK')
|
|
222
|
0 |
10 |
unless ($ver == 1)
|