| line |
true |
false |
branch |
|
15
|
5 |
1 |
unless ($sig->{'key_id'})
|
|
26
|
0 |
0 |
$sig->{'version'} < 4 ? :
|
|
39
|
5 |
5 |
if $sp->{'type'} == $type
|
|
54
|
8 |
45 |
if (my $obj = $param{'Data'} and my $cert = $param{'Key'})
|
|
58
|
7 |
1 |
$sig->{'version'} == 4 ? :
|
|
|
0 |
8 |
$param{'Digest'} ? :
|
|
60
|
1 |
7 |
if ($sig->{'version'} < 4) { }
|
|
75
|
2 |
6 |
ref $obj eq 'ARRAY' ? :
|
|
90
|
2 |
14 |
if ($sig->{'version'} < 4) { }
|
|
100
|
14 |
0 |
defined $sp_data ? :
|
|
101
|
14 |
0 |
if $sp_data
|
|
116
|
2 |
43 |
if ($sig->{'version'} < 4) { }
|
|
120
|
0 |
2 |
unless $sig->{'hash_len'} == 5
|
|
135
|
43 |
43 |
if $h eq 'hashed'
|
|
138
|
0 |
154 |
if ($len >= 192 and $len < 255) { }
|
|
|
0 |
154 |
elsif ($len == 255) { }
|
|
153
|
0 |
45 |
unless my $key = 'Crypt::OpenPGP::Key::Public'->new($sig->{'pk_alg'})
|
|
165
|
1 |
7 |
if ($sig->{'version'} < 4) { }
|
|
179
|
14 |
0 |
defined $sp_data ? :
|
|
180
|
14 |
0 |
if $sp_data
|
|
198
|
0 |
28 |
unless $$sig{"subpackets_$h"} and @sp = @{$$sig{"subpackets_$h"};}
|
|
203
|
28 |
0 |
if ($len < 192) { }
|
|
|
0 |
0 |
elsif ($len < 8384) { }
|
|
222
|
4 |
12 |
if ($type eq 'Crypt::OpenPGP::Certificate') { }
|
|
|
12 |
0 |
elsif ($type eq 'Crypt::OpenPGP::Plaintext') { }
|
|
229
|
4 |
0 |
if (@_)
|
|
230
|
4 |
0 |
if (ref $_[0] eq 'Crypt::OpenPGP::UserID') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'Crypt::OpenPGP::Certificate') { }
|
|
233
|
2 |
2 |
if ($sig->{'version'} >= 4)
|
|
251
|
2 |
10 |
if ($pt->mode eq 't') { }
|
|
262
|
0 |
16 |
unless my $hash = 'Crypt::OpenPGP::Digest'->new($sig->{'hash_alg'})
|