Branch Coverage

blib/lib/Mail/GPG.pm

Criterion	Covered	Total	%
branch	167	254	65.7

line	true	false	branch
84	81	103	if defined $passphrase
85	184	0	if $self->get_gpg_call ne ''
89	55	129	if ($options) { }
109	0	0	unless open DBG, ">$name"
110	0	0	if ($data_fh) { }
	0	0	elsif (ref $data) { }
131	0	73	if $self->get_no_strict_7bit_encoding
135	0	73	unless not defined $encoding or $encoding =~ /^(quoted-printable|base64|7bit)\s*$/i
140	56	17	unless $entity->parts
159	44	16	if ($entity->effective_type =~ m[multipart/encrypted]i) { }
	16	0	elsif ($entity->bodyhandle) { }
162	0	44	if $entity->parts != 2
164	0	44	unless $entity->parts(0)->effective_type =~ m[application/pgp-encrypted]i
176	0	16	unless $$encrypted_text_sref =~ /^-----BEGIN PGP MESSAGE-----/m
212	137	0	if ($data_fh_glob) { }
244	137	11926	unless ($rc)
251	11918	8	if ($data_canonify)
260	137	11789	if (not $stdin_watcher)
275	0	12120	unless (defined $written)
282	12120	0	if $written
286	137	11983	if $data_buffer eq ''
288	137	11983	unless $stdin_watcher
293	137	11983	if (not $stdin_watcher || $data_watcher)
321	137	113	unless $rc
342	137	12045	if (not $rc)
350	52	85	if ($status_fh)
368	52	231	unless $rc
418	59	0	if $] >= 5.008
437	0	274	if $debug
440	48	226	if ($fields[1] and $fields[1] =~ /^([eird])$/ or $fields[11] and $fields[11] =~ /([D])/)
443	0	48	if $verbose or $debug
449	110	116	if ($tag eq 'pub' or $tag eq 'FLUSH') { }
	12	104	elsif ($tag eq 'sub' and $gpg2_mode and $fields[4]) { }
	16	88	elsif ($tag eq 'uid' and $gpg2_mode and $fields[9] =~ /<[^>]+>/) { }
452	51	59	if (@ids and @emails) { }
	0	59	elsif (@ids or @emails) { }
462	55	0	if $] >= 5.008
467	29	22	unless ($self->get_use_long_key_ids)
474	14	49	if ($coerce) { }
490	0	110	if defined $fields[1] and $fields[1] eq 'FLUSH'
494	71	39	if (not defined $fields[9] or $fields[9] =~ /^\s*$/) { }
	39	0	elsif ($fields[9] =~ /<[^>]+>/) { }
522	0	88	if $debug
527	0	59	if $debug
576	0	35	if ($debug)
591	0	35	unless @result
592	5	30	unless wantarray
613	17	22	if ($rfc_entity->parts > 1) { }
635	17	22	if ($method eq 'sign') { }
645	9	8	if $multipart
684	17	0	unless defined $key_id
685	17	0	unless defined $passphrase
688	0	17	if $key_id eq ''
689	0	17	unless defined $passphrase
746	0	17	if $?
757	0	17	if ($self->get_debug)
802	22	0	unless defined $key_id
803	22	0	unless defined $passphrase
806	0	22	if not $_no_sign and $key_id eq ''
807	0	14	unless $_no_sign or defined $passphrase
834	0	22	if $self->get_default_key_encrypt and $self->get_default_key_id
850	8	14	if ($_no_sign) { }
882	0	22	if $?
893	0	22	if ($self->get_debug)
925	8	0	unless defined $key_id
926	8	0	unless defined $passphrase
929	0	8	if $key_id eq ''
930	0	8	unless defined $passphrase
931	0	8	unless $entity->bodyhandle
934	8	0	unless ($self->get_no_strict_7bit_encoding)
936	0	8	unless $encoding =~ /^(quoted-printable|base64|7bit)\s*$/i
987	0	8	if $?
1001	0	8	if ($self->get_debug)
1043	4	4	unless ($_no_sign)
1044	4	0	unless defined $key_id
1045	4	0	unless defined $passphrase
1049	0	4	if $key_id eq ''
1050	0	4	unless defined $passphrase
1054	0	8	unless $entity->bodyhandle
1072	0	8	if $self->get_default_key_encrypt and $self->get_default_key_id
1088	4	4	if ($_no_sign) { }
1120	0	8	if $?
1131	24	32	if $tag =~ /^content/i
1139	0	8	if ($self->get_debug)
1167	30	0	unless defined $passphrase
1239	0	30	if ($is_armor and not $output_stdout =~ /^[\w-]+:/)
1246	0	30	if ($dec_entity->head->as_string eq '') { }
1253	46	120	if $tag =~ /^content/i
1262	0	30	if ($self->get_debug)
1280	0	30	unless wantarray
1299	16	8	if ($entity->effective_type =~ m[multipart/signed]i) { }
	8	0	elsif ($entity->bodyhandle) { }
1302	0	16	if $entity->parts != 2
1304	0	16	unless $entity->parts(1)->effective_type =~ m[application/pgp-signature]i
1321	2	6	unless $signed_text =~ /^-----BEGIN PGP SIGNED MESSAGE-----/m
1347	16	6	if ($signature_text) { }
1397	16	6	if defined $sign_file
1400	0	22	if ($self->get_debug)
1426	22	8	if ($entity->effective_type =~ m[multipart/encrypted]i) { }
	8	0	elsif ($entity->bodyhandle) { }
1429	0	22	if $entity->parts != 2
1430	0	22	unless $entity->parts(0)->effective_type =~ m[application/pgp-encrypted]i
1439	0	8	unless $entity->bodyhandle->as_string =~ /^-----BEGIN PGP MESSAGE-----/m
1455	24	10	if ($entity->effective_type =~ m[multipart/signed]i) { }
	10	0	elsif ($entity->bodyhandle) { }
1458	0	24	if $entity->parts != 2
1459	0	24	unless $entity->parts(1)->effective_type =~ m[application/pgp-signature]i
1468	0	10	unless $entity->bodyhandle->as_string =~ /^-----BEGIN PGP SIGNED MESSAGE-----/m
1484	0	20	unless $mail_fh xor $mail_sref
1487	10	10	if (defined $mail_fh) { }
	10	0	elsif (defined $mail_sref) { }
1496	8	74	if (m[application/pgp-signature]i)
1500	2	72	if (/^-----BEGIN PGP SIGNED MESSAGE-----/)
1516	8	2	if $$mail_sref =~ m[application/pgp-signature]i
1519	2	0	if $$mail_sref =~ /^-----BEGIN PGP SIGNED MESSAGE-----/m
1599	30	60	if $line =~ /ENC_TO\s+([^\s]+)/
1600	0	90	if $line =~ /NO_SECKEY\s+([^\s]+)/
1606	30	0	unless (exists $no_sec_keys{$k})
1616	0	30	unless wantarray
1630	30	0	$address ? :
1642	0	54	unless $mail_fh xor $mail_sref
1653	54	0	$mail_fh ? :
1658	38	16	if $entity->effective_type eq 'multipart/signed' or $entity->effective_type eq 'multipart/encrypted'
1667	16	0	if $mail_fh
1669	16	0	$mail_fh ? :
1688	0	12	if @keys > 1
1691	0	12	unless $keys[0]