| line |
true |
false |
branch |
|
48
|
4 |
104 |
if (my $key = $param{'Key'}) |
|
52
|
2 |
2 |
if $KEY_ALG{$key->alg_id} eq "DSA" |
|
57
|
2 |
2 |
if ($cert->{'version'} < 4) |
|
59
|
0 |
2 |
unless $key->alg eq "RSA" |
|
64
|
2 |
2 |
if ($cert->{'is_secret'}) |
|
66
|
0 |
2 |
unless $param{'Passphrase'} |
|
87
|
26 |
0 |
if @_ |
|
94
|
5 |
4 |
if $KEY_ALG{$cert->pk_alg} eq "DSA" |
|
95
|
6 |
3 |
unless $cert->is_secret |
|
100
|
0 |
3 |
if $cert->{'version'} < 4 |
|
107
|
99 |
75 |
unless ($cert->{'key_id'}) |
|
108
|
3 |
96 |
if ($cert->{'version'} < 4) { } |
|
122
|
3 |
93 |
unless ($cert->{'fingerprint'}) |
|
123
|
0 |
3 |
if ($cert->{'version'} < 4) { } |
|
162
|
1 |
100 |
if ($cert->{'version'} < 4) |
|
167
|
39 |
62 |
$secret ? : |
|
169
|
1 |
100 |
unless (defined $key) |
|
179
|
99 |
1 |
if ($cert->{'version'} >= 4) |
|
184
|
39 |
61 |
if ($secret) |
|
186
|
39 |
0 |
if ($cert->{'cipher'}) |
|
188
|
39 |
0 |
if ($cert->{'cipher'} == 255 or $cert->{'cipher'} == 254) { } |
|
201
|
39 |
0 |
if ($cert->{'is_protected'}) { } |
|
202
|
0 |
39 |
if ($cert->{'version'} < 4) { } |
|
234
|
3 |
7 |
if ($cert->{'version'} < 4) |
|
240
|
1 |
9 |
if (not defined $key and defined $cert->{'unparsed_key'}) |
|
250
|
0 |
9 |
if ($cert->{'key'}->is_secret) |
|
251
|
0 |
0 |
if ($cert->{'cipher'}) { } |
|
257
|
0 |
0 |
if ($cert->{'version'} < 4) { } |
|
293
|
0 |
9 |
unless $cert->{'is_secret'} and $cert->{'is_protected'} |
|
295
|
0 |
9 |
unless my $cipher = "Crypt::OpenPGP::Cipher"->new($cert->{'cipher'}) |
|
300
|
0 |
9 |
if ($cert->{'version'} < 4) { } |
|
307
|
0 |
0 |
unless ($cert->{'csum'} == $cert->v3_checksum) |
|
314
|
0 |
0 |
unless ($cert->{'key'}->check) |
|
321
|
1 |
8 |
if ($cert->{'sha1check'}) { } |
|
324
|
0 |
1 |
unless ($dgst->hash($decrypted) eq $csum) |
|
330
|
0 |
8 |
unless ($csum == $gen_csum) |
|
348
|
0 |
2 |
if not $cert->{'is_secret'} or $cert->{'is_protected'} |
|
355
|
1 |
1 |
if ($cert->{'version'} < 4) { } |