Branch Coverage

blib/lib/Mail/GnuPG.pm
Criterion Covered Total %
branch 71 172 41.2


line true false branch
78 11 0 defined $self->{'keydir'} ? :
7 4 defined $self->{'key'} ? :
82 0 11 if ($self->{'use_agent'})
86 0 11 if (defined $self->{'always_trust'})
89 11 0 if defined $self->{'gpg_path'}
132 0 2 unless (ref $message and $message->isa('MIME::Entity'))
138 0 2 if ($message->effective_type =~ m[multipart/encrypted]) { }
2 0 elsif ($message->bodyhandle->as_string =~ /^-----BEGIN PGP MESSAGE-----/m) { }
139 0 0 if $message->parts != 2
141 0 0 unless $message->parts(0)->effective_type =~ m[application/pgp-encrypted]
168 0 2 $self->{'use_agent'} ? :
175 0 2 unless defined $passphrase_fh
179 0 2 $self->{'use_agent'} ? :
0 2 $self->{'use_agent'} ? :
188 0 2 if $return == -1
204 2 0 if ($armor_message and $plaintext[0] and not $plaintext[0] =~ /^[\w-]+:/)
211 0 2 if $exit_value
244 0 0 unless (ref $message and $message->isa('MIME::Entity'))
250 0 0 if ($message->effective_type =~ m[multipart/encrypted]) { }
0 0 elsif ($message->bodyhandle->as_string =~ /^-----BEGIN PGP MESSAGE-----/m) { }
251 0 0 if $message->parts != 2
253 0 0 unless $message->parts(0)->effective_type =~ m[application/pgp-encrypted]
298 0 0 if $return == -1
310 0 0 if /ENC_TO\s+([^\s]+)/
311 0 0 if /NO_SECKEY\s+([^\s]+)/
317 0 0 unless (exists $no_sec_keys{$k})
323 0 0 unless $key
326 0 0 unless $key =~ /^[0-9A-F]+$/i
330 0 0 if not $gpg_out =~ /\S/ or $?
378 0 4 unless (ref $message and $message->isa('MIME::Entity'))
383 2 2 if ($message->effective_type =~ m[multipart/signed]) { }
2 0 elsif ($message->bodyhandle and $message->bodyhandle->as_string =~ /^-----BEGIN PGP SIGNED MESSAGE-----/m) { }
384 0 2 if $message->parts != 2
386 0 2 unless $message->parts(1)->effective_type =~ m[application/pgp-signature]
431 2 2 if (defined $ciphertext)
438 2 2 if $ciphertext
441 2 2 $ciphertext ? :
456 0 4 if $return == -1
462 0 4 if $exit_value
505 2 0 if ref $a
534 1 1 if exists $key_cache{$address}
559 0 1 unless $entity->isa('MIME::Entity')
564 0 1 if ($entity->parts > 1)
579 0 1 $self->{'use_agent'} ? :
583 0 1 unless defined $passphrase_fh
587 1 0 if ($workingentity eq $entity) { }
607 0 1 $self->{'use_agent'} ? :
0 1 $self->{'use_agent'} ? :
616 0 1 if $return == -1
660 0 1 unless $entity->isa('MIME::Entity')
665 0 1 unless defined $body
695 0 1 if $return == -1
701 0 1 unless my $io = $body->open('w')
758 0 1 unless $entity->isa('MIME::Entity')
763 0 1 unless defined $body
783 0 1 if ($sign) { }
797 0 1 if $return == -1
804 0 1 unless my $io = $body->open('w')
856 0 0 unless $entity->isa('MIME::Entity')
861 0 0 if ($entity->parts > 1)
878 0 0 $self->{'use_agent'} ? :
883 0 0 if ($sign) { }
892 0 0 if ($workingentity eq $entity) { }
907 0 0 unless defined $passphrase_fh
911 0 0 $self->{'use_agent'} ? :
0 0 $self->{'use_agent'} ? :
921 0 0 if $return == -1
975 2 1 if $entity->effective_type =~ m[multipart/signed] or $entity->as_string =~ /^-----BEGIN PGP SIGNED MESSAGE-----/m
984 1 2 if $entity->effective_type =~ m[multipart/encrypted] or $entity->as_string =~ /^-----BEGIN PGP MESSAGE-----/m
1025 0 12 unless exists $wbuf_of->{$_}
1026 8 4 if ($wbuf_of->{$_}) { }
1038 0 575 unless (@ready)
1042 0 575 if (@$eready)
1049 0 318 if $DEBUG
1050 0 318 unless (defined $count)
1051 0 0 if ($!{'EPIPE'}) { }
1052 0 0 if $DEBUG
1061 21 297 if ($count == 0)
1062 0 21 if $DEBUG
1070 8 389 unless exists $woffset_of->{$whandle}
1073 0 397 unless (defined $count)
1074 0 0 if ($!{'EPIPE'}) { }
1075 0 0 if $DEBUG
1084 0 397 if $DEBUG
1086 8 389 if ($woffset_of->{$whandle} >= length $wbuf_of->{$whandle})
1087 0 8 if $DEBUG