| line |
true |
false |
branch |
|
25
|
10 |
0 |
if (not $ring->{'_data'} and my $file = $param{'Filename'})
|
|
27
|
1 |
9 |
unless open FH, $file
|
|
33
|
0 |
9 |
if ($ring->{'_data'} =~ /^-----BEGIN/)
|
|
35
|
0 |
0 |
unless my $rec = 'Crypt::OpenPGP::Armour'->unarmour($ring->{'_data'})
|
|
55
|
0 |
1 |
unless $ring->{'_data'}
|
|
68
|
1 |
4 |
if (ref $packet eq 'Crypt::OpenPGP::Certificate' and not $packet->is_subkey)
|
|
73
|
5 |
0 |
if $kb
|
|
87
|
16 |
25 |
unless ($ref)
|
|
93
|
2 |
14 |
unless @kbs
|
|
96
|
14 |
25 |
wantarray ? :
|
|
118
|
0 |
19 |
unless $ring->{'_data'}
|
|
124
|
23 |
13 |
if ($pkt->{'__unparsed'} and $pkt->{'type'} == &PGP_PKT_SECRET_KEY() || $pkt->{'type'} == &PGP_PKT_PUBLIC_KEY() or ref $pkt eq 'Crypt::OpenPGP::Certificate' and not $pkt->is_subkey)
|
|
130
|
21 |
17 |
unless not $pkt->{'__unparsed'} and &$test($pkt)
|
|
135
|
3 |
14 |
if ($last_kb_start_cert->{'__unparsed'}) { }
|
|
147
|
12 |
71 |
unless $packet
|
|
148
|
5 |
66 |
if ref $packet eq 'Crypt::OpenPGP::Certificate' and not $packet->is_subkey
|
|
151
|
66 |
0 |
if $kb
|
|
154
|
17 |
0 |
if ($multiple) { }
|
|
155
|
0 |
0 |
wantarray ? :
|
|
157
|
2 |
15 |
unless wantarray
|
|
164
|
1 |
0 |
$_[0]{'blocks'} ? :
|