| line |
true |
false |
branch |
|
24
|
7 |
10 |
unless ($sig->{'key_id'}) |
|
35
|
0 |
0 |
if ($sig->{'version'} < 4) { } |
|
48
|
7 |
7 |
if $sp->{'type'} == $type |
|
63
|
8 |
70 |
if (my $obj = $param{'Data'} and my $cert = $param{'Key'}) |
|
67
|
7 |
1 |
$sig->{'version'} == 4 ? : |
|
|
0 |
8 |
$param{'Digest'} ? : |
|
69
|
1 |
7 |
if ($sig->{'version'} < 4) { } |
|
84
|
2 |
6 |
ref $obj eq 'ARRAY' ? : |
|
99
|
3 |
16 |
if ($sig->{'version'} < 4) { } |
|
109
|
16 |
0 |
defined $sp_data ? : |
|
110
|
16 |
0 |
if $sp_data |
|
125
|
2 |
68 |
if ($sig->{'version'} < 4) { } |
|
129
|
0 |
2 |
unless $sig->{'hash_len'} == 5 |
|
144
|
68 |
68 |
if $h eq "hashed" |
|
147
|
1 |
296 |
if ($len >= 192 and $len < 255) { } |
|
|
0 |
296 |
elsif ($len == 255) { } |
|
160
|
47 |
23 |
if $KEY_ALG{$sig->{'pk_alg'}} eq "DSA" |
|
164
|
0 |
70 |
unless my $key = "Crypt::OpenPGP::Key::Public"->new($sig->{'pk_alg'}) |
|
176
|
1 |
9 |
if ($sig->{'version'} < 4) { } |
|
190
|
18 |
0 |
defined $sp_data ? : |
|
191
|
18 |
0 |
if $sp_data |
|
209
|
0 |
34 |
unless $$sig{"subpackets_$h"} and @sp = @{$$sig{"subpackets_$h"};} |
|
214
|
41 |
0 |
if ($len < 192) { } |
|
|
0 |
0 |
elsif ($len < 8384) { } |
|
233
|
4 |
15 |
if ($type eq 'Crypt::OpenPGP::Certificate') { } |
|
|
15 |
0 |
elsif ($type eq 'Crypt::OpenPGP::Plaintext') { } |
|
240
|
4 |
0 |
if (@_) |
|
241
|
4 |
0 |
if (ref $_[0] eq 'Crypt::OpenPGP::UserID') { } |
|
|
0 |
0 |
elsif (ref $_[0] eq 'Crypt::OpenPGP::Certificate') { } |
|
244
|
2 |
2 |
if ($sig->{'version'} >= 4) |
|
262
|
4 |
11 |
if ($pt->mode eq 't') { } |
|
273
|
0 |
19 |
unless my $hash = "Crypt::OpenPGP::Digest"->new($sig->{'hash_alg'}) |