Condition Coverage

blib/lib/Crypt/OpenPGP/KeyRing.pm
Criterion Covered Total %
condition 21 28 75.0


and 3 conditions

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

or 2 conditions

line l !l condition
24 0 10 $param{'Data'} || ''
117 19 0 $pkttypes ||= []

or 3 conditions

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