| line |
true |
false |
branch |
|
32
|
0 |
0 |
if (@_ % 2) { } |
|
42
|
0 |
0 |
defined $host ? : |
|
44
|
0 |
0 |
exists $arg{'ResvPort'} ? : |
|
50
|
0 |
0 |
ref $hosts ? : |
|
51
|
0 |
0 |
defined $arg{'Timeout'} ? : |
|
|
0 |
0 |
if $obj = $type->SUPER::new('PeerAddr', $host = $h, 'PeerPort', $arg{'Port'} || 'pop3(110)', 'Proto', 'tcp', @localport, 'Timeout', defined $arg{'Timeout'} ? $arg{'Timeout'} : 120) |
|
64
|
0 |
0 |
unless defined $obj |
|
69
|
0 |
0 |
exists $arg{'Debug'} ? : |
|
73
|
0 |
0 |
if ($ssl) |
|
76
|
0 |
0 |
unless (eval {
do {
require IO::Socket::SSL
}
}) |
|
82
|
0 |
0 |
exists $arg{'Debug'} ? : |
|
86
|
0 |
0 |
if (defined $ssl and $ssl =~ /ssl/i) |
|
88
|
0 |
0 |
unless ($obj->ssl_start(\%ssl_args)) |
|
95
|
0 |
0 |
unless ($obj->response == CMD_OK()) |
|
103
|
0 |
0 |
if (defined $ssl and $ssl =~ /starttls|stls/i) |
|
109
|
0 |
0 |
unless ($capa = $obj->capa and exists $$capa{'STLS'} and $obj->command('STLS')->response == CMD_OK() and $obj->ssl_start(\%ssl_args)) |
|
123
|
0 |
0 |
unless unshift @Net::POP3S::ISA, 'IO::Socket::SSL' and 'IO::Socket::SSL'->start_SSL($self, %$args) and $self->isa('IO::Socket::SSL') and bless $self, $type |
|
134
|
0 |
0 |
unless eval {
do {
require MIME::Base64;
require Authen::SASL
}
} |
|
140
|
0 |
0 |
if ($mechs) { } |
|
149
|
0 |
0 |
if (ref $username and UNIVERSAL::isa($username, 'Authen::SASL')) { } |
|
158
|
0 |
0 |
@user_mech ? : |
|
160
|
0 |
0 |
unless (@mech) |
|
177
|
0 |
0 |
unless length $username |
|
193
|
0 |
0 |
unless ($client) |
|
206
|
0 |
0 |
unless (my($token) = $client->client_start) |
|
225
|
0 |
0 |
if defined $token and length $token |
|
230
|
0 |
0 |
unless (my($token) = $client->client_step(MIME::Base64::decode_base64(($self->message)[0]))) |
|
241
|
0 |
0 |
defined $token ? : |