| line |
true |
false |
branch |
|
28
|
18 |
0 |
if (not $ring->{'_data'} and my $file = $param{'Filename'}) |
|
30
|
1 |
17 |
unless open FH, $file |
|
36
|
2 |
15 |
if ($ring->{'_data'} =~ /^-----BEGIN/) |
|
38
|
0 |
2 |
unless my $rec = "Crypt::OpenPGP::Armour"->unarmour($ring->{'_data'}) |
|
58
|
0 |
1 |
unless $ring->{'_data'} |
|
71
|
1 |
4 |
if (ref $packet eq "Crypt::OpenPGP::Certificate" and not $packet->is_subkey) |
|
76
|
5 |
0 |
if $kb |
|
90
|
21 |
23 |
unless ($ref) |
|
96
|
4 |
17 |
unless @kbs |
|
99
|
11 |
29 |
wantarray ? : |
|
121
|
0 |
24 |
unless $ring->{'_data'} |
|
127
|
32 |
39 |
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) |
|
133
|
53 |
20 |
unless not $pkt->{'__unparsed'} and &$test($pkt) |
|
138
|
3 |
17 |
if ($last_kb_start_cert->{'__unparsed'}) { } |
|
150
|
14 |
150 |
unless $packet |
|
151
|
6 |
144 |
if ref $packet eq "Crypt::OpenPGP::Certificate" and not $packet->is_subkey |
|
154
|
144 |
0 |
if $kb |
|
157
|
20 |
0 |
if ($multiple) { } |
|
158
|
0 |
0 |
wantarray ? : |
|
160
|
2 |
18 |
unless wantarray |
|
167
|
1 |
0 |
$_[0]{'blocks'} ? : |