Branch Coverage

blib/lib/EasyMail.pm

Criterion	Covered	Total	%
branch	0	398	0.0

line	true	false	branch
71	0	0	if ($param_count == 1) { }
73	0	0	unless (defined $_)
77	0	0	defined &_name_pkg_name ? :
85	0	0	if ($param_count == 1) { }
87	0	0	if (not defined $_) { }
	0	0	elsif (/^[a-zA-Z0-9\_\.\-]+\@([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6}$/) { }
88	0	0	defined &_name_false ? :
90	0	0	defined &_name_true ? :
92	0	0	defined &_name_false ? :
95	0	0	defined &_name_pkg_name ? :
107	0	0	unless (defined $filename)
149	0	0	if ($type)
150	0	0	unless $$map{$type}
165	0	0	if ($len >= $line_len) { }
179	0	0	if (defined &utf8::is_utf8 and utf8::is_utf8($_[0])) { }
	0	0	elsif ($_[0] =~ /^[\040-\176\r\t\n]*$/) { }
	0	0	elsif (defined $_[1] and defined $_[2] and $_[1] eq $_[2]) { }
	0	0	elsif (defined $_[1] and defined $_[2] and $_[1] ne $_[2]) { }
188	0	0	if ($_[1] eq 'utf8' and $_[2] eq 'iso-2022-jp') { }
192	0	0	if ($@) { }
201	0	0	defined &_name_pkg_name ? :
210	0	0	if ($str =~ /^[\040-\176]*$/) { }
222	0	0	defined $value ? :
228	0	0	unless (is_email $email)
229	0	0	defined &_name_pkg_name ? :
232	0	0	unless (defined $name)
243	0	0	if ($type eq '' and defined $email_name_pair) { }
	0	0	elsif ($type eq 'ARRAY') { }
	0	0	elsif ($type eq 'HASH') { }
246	0	0	if (/^[a-zA-Z0-9\_\.\-]+\@([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6}$/) { }
	0	0	elsif (/^([^\s](.*[^\s])?)[\s]+([a-zA-Z0-9\_\.\-]+\@([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6})$/) { }
	0	0	elsif (/^([a-zA-Z0-9\_\.\-]+\@([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6})[\s]+([^\s](.*[^\s])?)$/) { }
	0	0	elsif (/^[\"](.*)[\"][\s]*[\<][\s]*([a-zA-Z0-9\_\.\-]+\@([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6})[\s]*[\>]$/) { }
	0	0	elsif (/^([^\s](.*[^\s])?)[\s]*[\<][\s]*([a-zA-Z0-9\_\.\-]+\@([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6})[\s]*[\>]$/) { }
260	0	0	if (ref $$email_name_pair[0] eq '' and ref $$email_name_pair[1] eq '') { }
262	0	0	if (is_email $A) { }
	0	0	elsif (is_email $B) { }
263	0	0	if (defined $B and $B eq '')
266	0	0	if (defined $A and $A eq '')
275	0	0	if (ref $$email_name_pair{'email'} eq '' and ref $$email_name_pair{'name'} eq '') { }
277	0	0	if (is_email $A) { }
278	0	0	if (defined $B and $B eq '')
293	0	0	unless (defined $email_list)
294	0	0	if (ref $email_list eq '' or ref $email_list eq 'HASH') { }
	0	0	elsif (ref $email_list eq 'ARRAY') { }
299	0	0	if (scalar @$email_list == 2)
302	0	0	if (is_email $A and not is_email $B or not is_email $A and is_email $B)
311	0	0	if (scalar @$email_list == 0)
354	0	0	if (defined $$file{'file_name'})
360	0	0	if (defined $$file{'content_id'})
365	0	0	if (defined $$file{'file_name'})
379	0	0	unless (defined $text)
384	0	0	if ($text =~ /^[\000-\177]*$/) { }
391	0	0	if ($_all_ascii and $text =~ /^[\040-\176\r\t\n]*$/) { }
397	0	0	if ($type eq 'html') { }
	0	0	elsif ($type eq 'plain') { }
398	0	0	$_all_ascii ? :
401	0	0	$_all_ascii ? :
404	0	0	defined &_name_pkg_name ? :
444	0	0	if (defined $$param{'files'})
447	0	0	if ($flag == 0) { }
	0	0	elsif ($flag == 1) { }
459	0	0	unless (defined $dst)
460	0	0	defined &_name_pkg_name ? :
464	0	0	if ($dst eq 'un') { }
	0	0	elsif ($dst eq 'cn') { }
	0	0	elsif ($dst eq 'jp') { }
471	0	0	defined &_name_pkg_name ? :
478	0	0	unless (defined $email)
479	0	0	defined &_name_pkg_name ? :
484	0	0	if (defined $$param{'mail_filter'})
485	0	0	if (ref $$param{'mail_filter'} eq 'ARRAY')
497	0	0	if (scalar @$ra_to == 0 and scalar @$ra_cc == 0)
498	0	0	defined &_name_pkg_name ? :
503	0	0	unless ($hide_bcc_flag)
507	0	0	unless (defined $subject)
515	0	0	if (not defined $$param{'type'}) { }
	0	0	elsif ($$param{'type'} eq 'html') { }
	0	0	elsif ($$param{'type'} eq 'plain' or $$param{'type'} eq 'text' or $$param{'type'} eq 'txt') { }
522	0	0	defined &_name_pkg_name ? :
526	0	0	unless (defined $text)
533	0	0	if (scalar @$mixed_files >= 1) { }
	0	0	elsif (scalar @$related_files >= 1) { }
539	0	0	if (scalar @$related_files >= 1) { }
604	0	0	unless (/^([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6}$/)
610	0	0	if (ref $email_list eq '' or ref $email_list eq 'HASH') { }
	0	0	elsif (ref $email_list eq 'ARRAY') { }
612	0	0	unless defined $email
614	0	0	if (index($email, $_) != -1)
618	0	0	if (scalar @$email_list == 2) { }
	0	0	elsif (scalar @$email_list == 0) { }
620	0	0	if (is_email $A and not is_email $B or not is_email $A and is_email $B)
623	0	0	if (index($email, $_) != -1)
636	0	0	if (index($email, $_) != -1)
641	0	0	if ($remain)
653	0	0	if (defined $$file{'file_bin'} and defined $$file{'file_path'}) { }
	0	0	elsif (defined $$file{'file_path'}) { }
	0	0	elsif (defined $$file{'file_bin'}) { }
654	0	0	defined &_name_pkg_name ? :
657	0	0	unless (defined $fh)
658	0	0	defined &_name_pkg_name ? :
665	0	0	if (defined $$file{'file_name'}) { }
674	0	0	defined &_name_pkg_name ? :
678	0	0	if (defined $$file{'content_type'}) { }
	0	0	elsif (defined $$attachment{'file_name'}) { }
683	0	0	defined &_name_pkg_name ? :
686	0	0	if (defined $$file{'content_id'}) { }
693	0	0	unless (defined $$attachment{'file_name'})
694	0	0	defined &_name_pkg_name ? :
697	0	0	$$attachment{'content_id'} ? :
733	0	0	if ($param_count == 1) { }
734	0	0	if ($_[0]{'type'} eq 'SMTPAUTHLOGIN') { }
	0	0	elsif ($_[0]{'type'} eq 'SMTPAUTHPLAIN') { }
	0	0	elsif ($_[0]{'type'} eq 'SMTPAUTHNONE') { }
	0	0	elsif ($_[0]{'type'} eq 'SENDMAIL') { }
	0	0	elsif ($_[0]{'type'} eq 'DIRECT') { }
745	0	0	defined &_name_pkg_name ? :
748	0	0	defined &_name_pkg_name ? :
754	0	0	if ($param_count == 1) { }
757	0	0	unless (defined $type)
758	0	0	if ($type eq 'SENDMAIL') { }
	0	0	elsif ($type eq 'SMTPAUTHLOGIN') { }
	0	0	elsif ($type eq 'SMTPAUTHPLAIN') { }
	0	0	elsif ($type eq 'SMTPAUTHNONE') { }
	0	0	elsif ($type eq 'DIRECT') { }
760	0	0	defined $_[0]{'sendmail_path'} ? :
761	0	0	!defined($_[0]{'sendmail_use_close'}) || $_[0]{'sendmail_use_close'} ? :
765	0	0	defined $_[0]{'smtp_host'} ? :
766	0	0	defined $_[0]{'smtp_port'} ? :
767	0	0	defined $_[0]{'print_msg'} && $_[0]{'print_msg'} ? :
769	0	0	unless (defined $$sender{'smtp_usr'})
770	0	0	defined &_name_pkg_name ? :
773	0	0	unless (defined $$sender{'smtp_pass'})
774	0	0	defined &_name_pkg_name ? :
779	0	0	defined $_[0]{'smtp_host'} ? :
780	0	0	defined $_[0]{'smtp_port'} ? :
781	0	0	defined $_[0]{'print_msg'} && $_[0]{'print_msg'} ? :
783	0	0	unless (defined $$sender{'smtp_usr'})
784	0	0	defined &_name_pkg_name ? :
787	0	0	unless (defined $$sender{'smtp_pass'})
788	0	0	defined &_name_pkg_name ? :
793	0	0	defined $_[0]{'smtp_host'} ? :
794	0	0	defined $_[0]{'smtp_port'} ? :
795	0	0	defined $_[0]{'print_msg'} && $_[0]{'print_msg'} ? :
801	0	0	defined $_[0]{'print_msg'} && $_[0]{'print_msg'} ? :
804	0	0	defined &_name_pkg_name ? :
807	0	0	defined &_name_pkg_name ? :
813	0	0	if ($param_count == 6) { }
815	0	0	if ($type eq 'SENDMAIL') { }
	0	0	elsif ($type eq 'SMTPAUTHLOGIN') { }
	0	0	elsif ($type eq 'SMTPAUTHPLAIN') { }
	0	0	elsif ($type eq 'SMTPAUTHNONE') { }
	0	0	elsif ($type eq 'DIRECT') { }
847	0	0	defined &_name_pkg_name ? :
850	0	0	defined &_name_pkg_name ? :
856	0	0	if (not defined $type) { }
	0	0	elsif ($type eq 'SENDMAIL') { }
	0	0	elsif ($type eq 'SMTPAUTHLOGIN' or $type eq 'SMTPAUTHPLAIN' or $type eq 'SMTPAUTHNONE' or $type eq 'DIRECT') { }
857	0	0	defined &_name_pkg_name ? :
863	0	0	defined &_name_pkg_name ? :
870	0	0	if ($email =~ /^[a-zA-Z0-9\_\.\-]+\@((?:[a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6})$/) { }
874	0	0	if (scalar @mx == 0) { }
875	0	0	defined &_name_pkg_name ? :
885	0	0	defined &_name_pkg_name ? :
891	0	0	defined $$mail{'smtp_host'} ? :
892	0	0	defined $$mail{'smtp_port'} ? :
893	0	0	defined $$mail{'print_msg'} ? :
895	0	0	defined &_name_pkg_name ? :
	0	0	unless (defined $sock)
933	0	0	defined $$mail{'smtp_host'} ? :
934	0	0	defined $$mail{'smtp_port'} ? :
935	0	0	defined $$mail{'print_msg'} ? :
937	0	0	defined &_name_pkg_name ? :
	0	0	unless (defined $sock)
971	0	0	defined $$mail{'smtp_host'} ? :
972	0	0	defined $$mail{'smtp_port'} ? :
973	0	0	defined $$mail{'print_msg'} ? :
975	0	0	defined &_name_pkg_name ? :
	0	0	unless (defined $sock)
1007	0	0	defined $path ? :
1009	0	0	unless (open MAIL, "| $path -t")
1010	0	0	defined &_name_pkg_name ? :
1013	0	0	if ($@)
1014	0	0	defined &_name_pkg_name ? :
1018	0	0	unless (defined $use_close and $use_close == 0)
1025	0	0	unless (defined $server_response)
1026	0	0	defined &_name_pkg_name ? :
1032	0	0	unless (defined $response_line)
1033	0	0	if ($print_msg)
1034	0	0	if ($2 ne '-')
	0	0	if ($response_line =~ s/^(\d\d\d)(.?)//o)
1037	0	0	if (not defined $code && defined $response && $code eq $response)
1038	0	0	defined &_name_pkg_name ? :
1044	0	0	if ($print_msg)
1047	0	0	if (not $socket->send($msg))
1048	0	0	defined &_name_pkg_name ? :
1054	0	0	if ($param_count == 1) { }
1056	0	0	unless (defined $_)
1060	0	0	defined &_name_pkg_name ? :