| 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 |
572 |
unless (@ready) |
|
1042
|
0 |
572 |
if (@$eready) |
|
1049
|
0 |
316 |
if $DEBUG |
|
1050
|
0 |
316 |
unless (defined $count) |
|
1051
|
0 |
0 |
if ($!{'EPIPE'}) { } |
|
1052
|
0 |
0 |
if $DEBUG |
|
1061
|
21 |
295 |
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 |