| line |
true |
false |
branch |
|
47
|
1 |
15 |
unless $impl
|
|
51
|
0 |
15 |
if ($@)
|
|
54
|
0 |
15 |
if $DEBUG
|
|
60
|
0 |
10 |
if $DEBUG
|
|
67
|
0 |
10 |
if $DEBUG
|
|
72
|
0 |
10 |
unless ($iv_len == $cipher->iv_len)
|
|
80
|
0 |
10 |
if $DEBUG
|
|
85
|
0 |
10 |
if $DEBUG
|
|
89
|
0 |
10 |
if $DEBUG
|
|
93
|
0 |
10 |
unless ($hmac eq $fields->{'hmac'})
|
|
99
|
0 |
10 |
if $DEBUG
|
|
113
|
4 |
1 |
if (my $len = $cipher_obj->iv_len)
|
|
121
|
0 |
5 |
if $DEBUG
|
|
125
|
0 |
5 |
if $DEBUG
|
|
129
|
0 |
5 |
if $DEBUG
|
|
135
|
0 |
5 |
if $DEBUG
|
|
151
|
0 |
5 |
if $DEBUG
|
|
156
|
0 |
5 |
if $DEBUG
|
|
160
|
0 |
5 |
if $DEBUG
|
|
172
|
0 |
4 |
unless sysopen my $urand, '/dev/urandom', 0
|
|
173
|
0 |
4 |
unless binmode $urand
|
|
174
|
0 |
4 |
unless sysread $urand, $iv, $len
|
|
176
|
0 |
4 |
if $@
|
|
179
|
0 |
4 |
if (length $iv < $len)
|
|
188
|
5 |
0 |
if ($bsize)
|
|
201
|
3 |
12 |
$fields->{'cipher'} == 0 ? :
|
|
207
|
12 |
3 |
if $fields->{'iv_len'} > 0
|
|
208
|
8 |
7 |
if $fields->{'key_len'} > 0
|
|
220
|
0 |
10 |
unless ($otk eq 'OTK')
|
|
223
|
0 |
10 |
unless ($ver == 1)
|