| line |
true |
false |
branch |
|
32
|
0 |
0 |
if (@_ % 2) { } |
|
42
|
0 |
0 |
defined $host ? : |
|
53
|
0 |
0 |
defined $_args{'Timeout'} ? : |
|
55
|
0 |
0 |
ref $hosts ? : |
|
64
|
0 |
0 |
if $obj = $type->SUPER::new(%_args) |
|
71
|
0 |
0 |
unless defined $obj |
|
75
|
0 |
0 |
exists $arg{'Debug'} ? : |
|
79
|
0 |
0 |
if ($ssl) |
|
82
|
0 |
0 |
unless (eval {
do {
require IO::Socket::SSL
}
}) |
|
88
|
0 |
0 |
exists $arg{'Debug'} ? : |
|
92
|
0 |
0 |
if (defined $ssl and $ssl =~ /ssl/i) |
|
94
|
0 |
0 |
unless ($obj->ssl_start(\%ssl_args)) |
|
101
|
0 |
0 |
unless ($obj->response == CMD_OK()) |
|
112
|
0 |
0 |
unless ($obj->hello($arg{'Hello'} || '')) |
|
118
|
0 |
0 |
if (defined $ssl and $ssl =~ /starttls/i and $obj->supports('STARTTLS')) |
|
122
|
0 |
0 |
unless ($obj->command('STARTTLS')->response == CMD_OK() and $obj->ssl_start(\%ssl_args) and $obj->hello($arg{'Hello'} || '')) |
|
136
|
0 |
0 |
unless unshift @Net::SMTPS::ISA, 'IO::Socket::SSL' and 'IO::Socket::SSL'->start_SSL($self, %$args) and $self->isa('IO::Socket::SSL') and bless $self, $type |
|
147
|
0 |
0 |
unless eval {
do {
require MIME::Base64;
require Authen::SASL
}
} |
|
153
|
0 |
0 |
if ($mech) |
|
156
|
0 |
0 |
unless $mechanisms |
|
160
|
0 |
0 |
if (ref $username and UNIVERSAL::isa($username, 'Authen::SASL')) { } |
|
165
|
0 |
0 |
unless length $username |
|
188
|
0 |
0 |
if defined $str and length $str |