blib/lib/Crypt/OpenPGP/KeyRing.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 21 | 28 | 75.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
25 | 0 | 0 | 10 | not $ring->{'_data'} and my $file = $param{'Filename'} |
68 | 3 | 1 | 1 | ref $packet eq 'Crypt::OpenPGP::Certificate' and not $packet->is_subkey |
124 | 34 | 4 | 0 | $pkt->{'__unparsed'} and $pkt->{'type'} == &PGP_PKT_SECRET_KEY() || $pkt->{'type'} == &PGP_PKT_PUBLIC_KEY() |
4 | 9 | 21 | ref $pkt eq 'Crypt::OpenPGP::Certificate' and not $pkt->is_subkey | |
130 | 4 | 17 | 17 | not $pkt->{'__unparsed'} and &$test($pkt) |
148 | 50 | 16 | 5 | ref $packet eq 'Crypt::OpenPGP::Certificate' and not $packet->is_subkey |
line | l | !l | condition |
---|---|---|---|
24 | 0 | 10 | $param{'Data'} || '' |
117 | 19 | 0 | $pkttypes ||= [] |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
124 | 2 | 2 | 0 | $pkt->{'type'} == &PGP_PKT_SECRET_KEY() || $pkt->{'type'} == &PGP_PKT_PUBLIC_KEY() |
4 | 0 | 34 | $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 |