Branch Coverage

blib/lib/BW/Email.pm
Criterion Covered Total %
branch 0 70 0.0


line true false branch
24 0 0 unless $self->helo
26 0 0 unless $self->smtp_port
28 0 0 if $ENV{'REMOTE_HOST'}
29 0 0 if $ENV{'SERVER_PROTOCOL'}
30 0 0 if $$self{'received_from'}
55 0 0 if (ref $email)
59 0 0 unless $email
62 0 0 if ($email =~ m(^[^\x00-\x20()\<\>\[\]\@\,\;\:\\/"]+\@[^\x00-\x20()\<\>\[\]\@\,\;\:\\/"]+$)i) { }
78 0 0 ($i = $hour - $gm[2]) > 12 ? :
86 0 0 if (@_)
99 0 0 $self->email_from_name ? :
112 0 0 $self->email_to_name ? :
120 0 0 if $rp
133 0 0 if ($body)
139 0 0 unless $self->email_from and $self->email_to
145 0 0 if $$extra_headers{$h}
147 0 0 if $$self{'received_okay'}
150 0 0 if grep {$h eq $_;} @top_headers
155 0 0 if $self->email_subject
159 0 0 if $body
168 0 0 if $$self{'received_from'}
169 0 0 if $s and $self->helo
170 0 0 if $self->helo
171 0 0 if $s and $$self{'received_with'}
172 0 0 if $$self{'received_with'}
173 0 0 if $s
209 0 0 unless $self->smtp_host
218 0 0 unless $s
243 0 0 unless $$self{'smtp_result'} == 220
248 0 0 unless $$self{'smtp_result'} == 250
253 0 0 unless $$self{'smtp_result'} >= 250 and $$self{'smtp_result'} < 260
258 0 0 unless $$self{'smtp_result'} >= 250 and $$self{'smtp_result'} < 260
263 0 0 unless $$self{'smtp_result'} == 354
269 0 0 unless $$self{'smtp_result'} == 250
286 0 0 if ($self->make_smtp_socket)