Branch Coverage

blib/lib/Email/Sender/Transport/SMTP.pm
Criterion Covered Total %
branch 0 62 0.0


line true false branch
51 0 0 if grep {/:/;} $self->hosts
53 0 0 if ($self->sasl_username and not defined $self->sasl_password)
62 0 0 if (exists $arg->{'host'})
64 0 0 if exists $arg->{'hosts'}
69 0 0 if (exists $arg->{'sasl_authenticator'} and exists $arg->{'sasl_username'})
179 0 0 unless $localpart =~ /[\x00-\x1F\x7F<>\(\)\[\]\\,;:\@"]/ or $localpart =~ /^\./ or $localpart =~ /\.$/
189 0 0 if ($self->sasl_username)
193 0 0 if ($self->sasl_authenticator)
207 0 0 unless ($smtp)
215 0 0 if ($self->_security eq "starttls")
217 0 0 unless $smtp->starttls(%{$self->ssl_options;})
220 0 0 if ($self->_security eq "maybestarttls")
221 0 0 if ($smtp->supports("STARTTLS", 500, ["Command unknown: 'STARTTLS'"]))
223 0 0 unless $smtp->starttls(%{$self->ssl_options;})
227 0 0 unless ($self->_maybe_auth($smtp))
228 0 0 if ($smtp->message =~ /MIME::Base64|Authen::SASL/)
248 0 0 $self->_security eq 'ssl' ? :
0 0 defined $self->helo ? :
0 0 defined $self->localaddr ? :
0 0 defined $self->localport ? :
266 0 0 if defined $_
0 0 unless my(@to) = grep({length $_ if defined $_;} @{$$env{"to"};})
272 0 0 unless $smtp->mail(_quoteaddr($env->{'from'}))
279 0 0 if ($smtp->to(_quoteaddr($addr))) { }
298 0 0 if (@failures and @ok_rcpts == 0 || !$self->allow_partial_success)
302 0 0 if @failures == 1
304 0 0 @ok_rcpts ? :
316 0 0 unless $smtp->data
324 0 0 unless $smtp->datasend($next_hunk)
327 0 0 unless $smtp->dataend
334 0 0 unless @failures