Branch Coverage

blib/lib/Mail/GPG.pm

Criterion	Covered	Total	%
branch	167	254	65.7

line	true	false	branch
82	81	103	if defined $passphrase
83	184	0	if $self->get_gpg_call ne ''
87	55	129	if ($options) { }
107	0	0	unless open DBG, ">$name"
108	0	0	if ($data_fh) { }
	0	0	elsif (ref $data) { }
129	0	73	if $self->get_no_strict_7bit_encoding
133	0	73	unless not defined $encoding or $encoding =~ /^(quoted-printable|base64|7bit)\s*$/i
138	56	17	unless $entity->parts
157	44	16	if ($entity->effective_type =~ m[multipart/encrypted]i) { }
	16	0	elsif ($entity->bodyhandle) { }
160	0	44	if $entity->parts != 2
162	0	44	unless $entity->parts(0)->effective_type =~ m[application/pgp-encrypted]i
174	0	16	unless $$encrypted_text_sref =~ /^-----BEGIN PGP MESSAGE-----/m
210	137	0	if ($data_fh_glob) { }
242	137	11926	unless ($rc)
249	11918	8	if ($data_canonify)
258	137	11789	if (not $stdin_watcher)
273	0	12120	unless (defined $written)
280	12120	0	if $written
284	137	11983	if $data_buffer eq ''
286	137	11983	unless $stdin_watcher
291	137	11983	if (not $stdin_watcher || $data_watcher)
319	137	125	unless $rc
340	137	12034	if (not $rc)
348	52	85	if ($status_fh)
366	52	245	unless $rc
416	59	0	if $] >= 5.008
435	0	274	if $debug
438	48	226	if ($fields[1] and $fields[1] =~ /^([eird])$/ or $fields[11] and $fields[11] =~ /([D])/)
441	0	48	if $verbose or $debug
447	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] =~ /<[^>]+>/) { }
450	51	59	if (@ids and @emails) { }
	0	59	elsif (@ids or @emails) { }
460	55	0	if $] >= 5.008
465	29	22	unless ($self->get_use_long_key_ids)
472	14	49	if ($coerce) { }
488	0	110	if $fields[1] eq 'FLUSH'
492	71	39	if ($fields[9] =~ /^\s*$/) { }
	39	0	elsif ($fields[9] =~ /<[^>]+>/) { }
520	0	88	if $debug
525	0	59	if $debug
574	0	35	if ($debug)
589	0	35	unless @result
590	5	30	unless wantarray
611	17	22	if ($rfc_entity->parts > 1) { }
633	17	22	if ($method eq 'sign') { }
643	9	8	if $multipart
682	17	0	unless defined $key_id
683	17	0	unless defined $passphrase
686	0	17	if $key_id eq ''
687	0	17	unless defined $passphrase
744	0	17	if $?
755	0	17	if ($self->get_debug)
800	22	0	unless defined $key_id
801	22	0	unless defined $passphrase
804	0	22	if not $_no_sign and $key_id eq ''
805	0	14	unless $_no_sign or defined $passphrase
832	0	22	if $self->get_default_key_encrypt and $self->get_default_key_id
848	8	14	if ($_no_sign) { }
880	0	22	if $?
891	0	22	if ($self->get_debug)
923	8	0	unless defined $key_id
924	8	0	unless defined $passphrase
927	0	8	if $key_id eq ''
928	0	8	unless defined $passphrase
929	0	8	unless $entity->bodyhandle
932	8	0	unless ($self->get_no_strict_7bit_encoding)
934	0	8	unless $encoding =~ /^(quoted-printable|base64|7bit)\s*$/i
985	0	8	if $?
999	0	8	if ($self->get_debug)
1041	4	4	unless ($_no_sign)
1042	4	0	unless defined $key_id
1043	4	0	unless defined $passphrase
1047	0	4	if $key_id eq ''
1048	0	4	unless defined $passphrase
1052	0	8	unless $entity->bodyhandle
1070	0	8	if $self->get_default_key_encrypt and $self->get_default_key_id
1086	4	4	if ($_no_sign) { }
1118	0	8	if $?
1129	24	32	if $tag =~ /^content/i
1137	0	8	if ($self->get_debug)
1165	30	0	unless defined $passphrase
1237	0	30	if ($is_armor and not $output_stdout =~ /^[\w-]+:/)
1244	0	30	if ($dec_entity->head->as_string eq '') { }
1251	46	120	if $tag =~ /^content/i
1260	0	30	if ($self->get_debug)
1278	0	30	unless wantarray
1297	16	8	if ($entity->effective_type =~ m[multipart/signed]i) { }
	8	0	elsif ($entity->bodyhandle) { }
1300	0	16	if $entity->parts != 2
1302	0	16	unless $entity->parts(1)->effective_type =~ m[application/pgp-signature]i
1319	2	6	unless $signed_text =~ /^-----BEGIN PGP SIGNED MESSAGE-----/m
1345	16	6	if ($signature_text) { }
1395	16	6	if defined $sign_file
1398	0	22	if ($self->get_debug)
1424	22	8	if ($entity->effective_type =~ m[multipart/encrypted]i) { }
	8	0	elsif ($entity->bodyhandle) { }
1427	0	22	if $entity->parts != 2
1428	0	22	unless $entity->parts(0)->effective_type =~ m[application/pgp-encrypted]i
1437	0	8	unless $entity->bodyhandle->as_string =~ /^-----BEGIN PGP MESSAGE-----/m
1453	24	10	if ($entity->effective_type =~ m[multipart/signed]i) { }
	10	0	elsif ($entity->bodyhandle) { }
1456	0	24	if $entity->parts != 2
1457	0	24	unless $entity->parts(1)->effective_type =~ m[application/pgp-signature]i
1466	0	10	unless $entity->bodyhandle->as_string =~ /^-----BEGIN PGP SIGNED MESSAGE-----/m
1482	0	20	unless $mail_fh xor $mail_sref
1485	10	10	if (defined $mail_fh) { }
	10	0	elsif (defined $mail_sref) { }
1494	8	74	if (m[application/pgp-signature]i)
1498	2	72	if (/^-----BEGIN PGP SIGNED MESSAGE-----/)
1514	8	2	if $$mail_sref =~ m[application/pgp-signature]i
1517	2	0	if $$mail_sref =~ /^-----BEGIN PGP SIGNED MESSAGE-----/m
1597	30	60	if $line =~ /ENC_TO\s+([^\s]+)/
1598	0	90	if $line =~ /NO_SECKEY\s+([^\s]+)/
1604	30	0	unless (exists $no_sec_keys{$k})
1614	0	30	unless wantarray
1628	30	0	$address ? :
1640	0	54	unless $mail_fh xor $mail_sref
1651	54	0	$mail_fh ? :
1656	38	16	if $entity->effective_type eq 'multipart/signed' or $entity->effective_type eq 'multipart/encrypted'
1665	16	0	if $mail_fh
1667	16	0	$mail_fh ? :
1686	0	12	if @keys > 1
1689	0	12	unless $keys[0]