Branch Coverage

blib/lib/Crypt/GPG.pm
Criterion Covered Total %
branch 5 248 2.0


line true false branch
64 0 0 unless !$self->secretkey || $self->secretkey =~ /$$self{'VKEYID'}/ and $self->passphrase =~ /$$self{'VPASSPHRASE'}/
67 0 0 if $self->detach
68 0 0 if $self->armor
71 0 0 ref $self->secretkey ? :
0 0 if $self->secretkey
84 0 0 if $self->comment
85 0 0 $self->clearsign ? :
97 0 0 if ($2) { }
100 0 0 if ($1 eq 'GOOD') { }
104 0 0 if $i++ == 2
115 0 0 if ($self->clearsign) { }
0 0 elsif ($detach) { }
137 0 0 unless $self->secretkey or $_[1]
138 0 0 unless $self->passphrase =~ /$$self{'VPASSPHRASE'}/
144 0 0 ref $_[0] ? :
145 0 0 unless $ciphertext =~ /\n$/s
149 0 0 if $self->comment and not $_[1]
156 0 0 if ($_[1]) { }
157 0 0 ref $_[1] ? :
174 0 0 ref $self->secretkey ? :
183 0 0 if ($3) { }
0 0 elsif ($2) { }
0 0 elsif ($1) { }
188 0 0 if (substr($2, -1, 8) eq substr($seckey, -1, 8)) { }
191 0 0 if ($1 eq 'GOOD')
210 0 0 unless ($success or $_[1])
219 0 0 unless $x =~ /(GOOD|BAD)SIG/s
254 0 0 $_[2] && $_[2] eq '-sign' ? :
255 0 0 $self->armor ? :
257 0 0 if ($sign)
258 0 0 unless !$self->secretkey || $self->secretkey =~ /$$self{'VKEYID'}/ and $self->passphrase =~ /$$self{'VPASSPHRASE'}/
263 0 0 if (ref $rcpts eq 'ARRAY') { }
264 0 0 unless /$$self{'VRCPT'}/
269 0 0 unless $rcpts =~ /$$self{'VRCPT'}/
280 0 0 if ref $message eq 'ARRAY'
284 0 0 ref $self->secretkey ? :
0 0 if $sign and $self->secretkey
285 0 0 if $sign
0 0 if $armor
286 0 0 if $self->comment
298 0 0 if $1
0 0 if $2
0 0 if $3
0 0 if $4
300 0 0 if $@
301 0 0 if ($pos == 4)
308 0 0 if $1
0 0 if $2
0 0 if $3
0 0 if $4
309 0 0 if $pos == 4
312 0 0 if ($pos == 2) { }
0 0 elsif ($pos == 3) { }
313 0 0 if ($self->encryptsafe) { }
326 0 0 if $1
0 0 if $2
335 0 0 if ($pos == 1)
353 0 0 if ref $key eq 'ARRAY'
354 0 0 if grep {not $_ =~ /^[a-f0-9]+$/i;} @keyids
377 0 0 grep({$id eq $_;} @keyids) ? :
381 0 0 if ($pretend) { }
387 0 0 if $_
388 0 0 if $id
395 0 0 if (@keyids)
410 0 0 unless $id =~ /$$self{'VKEYID'}/
412 0 0 $self->armor ? :
413 0 0 $$key{'Type'} eq 'sec' ? :
415 0 0 if $self->comment
426 0 0 unless $keysize =~ /$$self{'VKEYSZ'}/ and $keysize > 767 and $keysize < 4097 and $pass =~ /$$self{'VPASSPHRASE'}/ and $keytype =~ /$$self{'VKEYTYPE'}/ and $expire =~ /$$self{'VEXPIRE'}/ and $email =~ /$$self{'VEMAIL'}/ and $name =~ /$$self{'VNAME'}/ and length $name > 4
435 0 0 unless (defined $comment and $comment =~ /$$self{'VCOMMENT'}/)
443 0 0 if ($self->nofork) { }
448 0 0 unless defined $pid
450 0 0 if ($pid) { }
469 0 0 if ($forked)
483 0 0 if $forked
489 0 0 if $forked
495 0 0 unless /$$self{'VKEYID'}/
518 0 0 if /^\-/
519 0 0 if /^(gpg|tru):/
520 0 0 if (m[^/])
524 0 0 if (/^(pub|sec)/) { }
539 0 0 if $uid
543 0 0 if (/^fpr:::::::::([^:]+):/) { }
0 0 elsif (/^sub/) { }
0 0 elsif (/^sig/) { }
0 0 elsif (/^uid:(.?):.*:([^:]+):$/) { }
545 0 0 if ($l == 32) { }
0 0 elsif ($l == 40) { }
556 0 0 $subkey ? :
575 0 0 $subkey ? :
598 0 0 unless $oldpass =~ /$$self{'VPASSPHRASE'}/ and $newpass =~ /$$self{'VPASSPHRASE'}/ and $$key{'Type'} eq 'sec'
613 0 0 if (not $1) { }
614 0 0 if $oldpass
621 0 0 unless ($1)
630 0 0 unless ($1)
644 0 0 unless $trustlevel =~ /$$self{'VTRUSTLEVEL'}/
656 0 0 if ($trustlevel == 5)
671 0 0 unless !$self->secretkey || $self->secretkey =~ /$$self{'VKEYID'}/ and $self->passphrase =~ /$$self{'VPASSPHRASE'}/
674 0 0 unless @uids and not grep({$_ =~ /\D/;} @uids)
683 0 0 unless grep {not grep({$signingkey eq $$_{'ID'};} @{$$_{'Signatures'};});} (@{$$key{'UIDs'};})[@uids]
686 0 0 if $self->secretkey
701 0 0 $local ? :
707 0 0 if ($2)
714 0 0 if ($1)
723 0 0 unless ($1)
727 0 0 if $1
731 0 0 if ($ret)
742 0 0 unless $$key{'ID'} =~ /$$self{'VKEYID'}/
744 0 0 $$key{'Type'} eq 'sec' ? :
754 0 0 unless $1
756 0 0 if ($$key{'Type'} eq 'sec')
766 0 0 unless $$key{'ID'} =~ /$$self{'VKEYID'}/
776 0 0 unless $1
786 0 0 unless $$key{'ID'} =~ /$$self{'VKEYID'}/
796 0 0 unless $1
814 0 1 unless defined $_[0]
815 0 0 $_[0] ? :
0 1 unless ($_[0] == $$self{'DEBUG'})
821 2 0 if ($auto =~ /^(passphrase|secretkey|armor|gpgbin|gpgopts|delay|marginals| detach|clearsign|encryptsafe|version|comment|tmpdir|tmpdirs| tmpfiles|tmpsuffix|nofork)$/x) { }
0 0 elsif ($auto eq 'DESTROY') { }
824 1 1 unless defined $_[0]
840 0 0 if ($auto =~ /^(validity|keyid|time|trusted)$/) { }
0 0 elsif ($auto eq 'DESTROY') { }
841 0 0 if $auto eq 'keyid'