blib/lib/Crypt/OpenPGP.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 35 | 82 | 42.6 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
148 | 2 | 4 | 0 | not $cfg_file and my $compat = $cfg->get('Compat') |
277 | 2 | 0 | 0 | not defined $pass and my $cb = $param{'PassphraseCallback'} |
384 | 0 | 0 | 5 | $ring and $kb = $ring->find_keyblock_by_keyid($key_id) |
386 | 0 | 0 | 0 | $cfg->get('AutoKeyRetrieve') and $cfg->get('KeyServer') |
415 | 1 | 0 | 5 | $kb && $kb->primary_uid |
462 | 16 | 4 | 3 | $param{'Recipients'} and not ref $param{'Recipients'} |
478 | 11 | 0 | 0 | $cfg->get('AutoKeyRetrieve') and $cfg->get('KeyServer') |
486 | 1 | 0 | 14 | $lr == 8 || $lr == 16 and not $r =~ /[^\da-fA-F]/ |
489 | 14 | 0 | 0 | not @kb and $server |
493 | 1 | 0 | 0 | not @kb and $server |
526 | 11 | 0 | 0 | $param{'Compat'} and $param{'Compat'} eq 'PGP2' |
553 | 11 | 0 | 0 | $param{'Passphrase'} && $param{'Compat'} && $param{'Compat'} eq 'PGP2' |
616 | 1 | 0 | 0 | not defined $pass and my $cb = $param{'PassphraseCallback'} |
630 | 11 | 0 | 0 | not defined $pass and my $cb = $param{'PassphraseCallback'} |
643 | 23 | 0 | 0 | not $key || $alg and ref $enc eq 'Crypt::OpenPGP::Ciphertext' |
720 | 0 | 0 | 2 | $pub and $sec |
line | l | !l | condition |
---|---|---|---|
205 | 0 | 0 | $param{'PassphraseCallback'} || \&Crypt::OpenPGP::_default_passphrase_cb |
712 | 2 | 0 | $param{'Size'} ||= 1024 |
713 | 0 | 2 | $param{'Version'} ||= 4 |
757 | 0 | 1 | $file ||= '' |
772 | 0 | 29 | $param->{'Compat'} || $pgp->{'cfg'}->get('Compat') || (return 1) |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
197 | 0 | 0 | 0 | $class eq 'Crypt::OpenPGP::OnePassSig' or $class eq 'Crypt::OpenPGP::Signature' |
212 | 0 | 0 | 0 | defined $valid or $pgp->errstr =~ /^No Signature/ |
343 | 7 | 0 | 0 | $param{'Signature'} or $param{'SigFile'} |
469 | 1 | 0 | 22 | $param{'Key'} or $param{'Recipients'} |
486 | 1 | 13 | 1 | $lr == 8 || $lr == 16 |
608 | 9 | 3 | 0 | $kb or $cert |
643 | 23 | 0 | 0 | $key || $alg |
687 | 0 | 1 | 22 | ref $pieces[0] eq 'Crypt::OpenPGP::OnePassSig' or ref $pieces[0] eq 'Crypt::OpenPGP::Signature' |