Branch Coverage

blib/lib/FTN/Crypt.pm
Criterion Covered Total %
branch 31 66 46.9


line true false branch
141 0 1 unless (%opts)
147 0 1 $opts{'Keyserver'} ? :
155 0 1 unless ($self->{'nodelist'})
165 1 0 if $opts{'Pubring'}
166 1 0 if $opts{'Secring'}
210 0 1 unless ($msg)
218 0 1 unless ($addr)
224 0 1 if ($method eq 'PGP2') { }
1 0 elsif ($method eq 'PGP5') { }
225 0 0 if ('version'->parse($gnupg_ver) < 'version'->parse($GPG2_BVER)) { }
235 0 1 unless ($self->_lookup_key($addr) or $self->_import_key($addr))
264 1 0 if ($msg_enc) { }
265 0 1 unless ($msg->set_text($msg_enc))
269 0 1 unless ($msg->add_kludge("$FTN::Crypt::Constants::ENC_MESSAGE_KLUDGE: $method"))
275 0 1 unless ($res)
323 0 1 unless (%opts)
327 0 1 unless (defined $opts{'Passphrase'})
336 0 1 unless ($msg)
346 1 7 if $k =~ /^$FTN::Crypt::Constants::ENC_MESSAGE_KLUDGE:\s+(\w+)$/
349 0 1 unless ($method_used)
355 0 1 unless ($addr)
359 0 1 unless ($method)
364 0 1 if ($method ne $method_used)
394 1 0 if ($msg_dec) { }
395 0 1 unless ($msg->set_text($msg_dec))
399 0 1 unless ($msg->remove_kludge($FTN::Crypt::Constants::ENC_MESSAGE_KLUDGE))
405 0 1 unless ($res)
442 2 0 $out ? :
450 0 0 if $self->_lookup_key($uid)
472 0 0 if ($res)
503 0 1 unless $self->_lookup_key($uid)
507 1 0 if not $self->_key_is_disabled($key) and $self->_key_can_encrypt($key)
510 0 1 if not $self->_key_is_disabled($subkey) and $self->_key_can_encrypt($subkey)