line |
true |
false |
branch |
34
|
0 |
0 |
if (@_ % 2) { } |
43
|
0 |
0 |
if ($ssl =~ /ssl/i) |
47
|
0 |
0 |
defined $host ? : |
58
|
0 |
0 |
defined $_args{'Timeout'} ? : |
59
|
0 |
0 |
if (exists $_args{'ResvPort'}) |
63
|
0 |
0 |
ref $hosts ? : |
66
|
0 |
0 |
if $obj = $type->SUPER::new(%_args) |
73
|
0 |
0 |
unless defined $obj |
79
|
0 |
0 |
exists $arg{'Debug'} ? : |
84
|
0 |
0 |
if (defined $ssl and $ssl =~ /ssl/i) |
86
|
0 |
0 |
unless ($obj->ssl_start) |
93
|
0 |
0 |
unless ($obj->response == 2) |
101
|
0 |
0 |
if (defined $ssl and $ssl =~ /starttls|stls/i) |
102
|
0 |
0 |
unless ($obj->starttls) |
118
|
0 |
0 |
unless (eval {
do {
require IO::Socket::SSL
}
}) |
124
|
0 |
0 |
exists $arg{'Debug'} ? : |
125
|
0 |
0 |
exists $arg{'Debug_SSL'} ? : |
129
|
0 |
0 |
unless unshift @Net::POP3S::ISA, 'IO::Socket::SSL' and 'IO::Socket::SSL'->start_SSL($self, %ssl_args, @_) and $self->isa('IO::Socket::SSL') and bless $self, $type |
143
|
0 |
0 |
unless ($capa = $self->capa and exists $capa->{'STLS'} and $self->_STLS and $self->ssl_start(@_)) |
153
|
0 |
0 |
if (exists do {
*$this
}->{'net_pop3e_capabilities'}) |
163
|
0 |
0 |
if ($mech) |
164
|
0 |
0 |
if $self->debug |
171
|
0 |
0 |
if (index($sv, $i) >= 0 and grep(/$i/i, @matched) == ()) |
175
|
0 |
0 |
if (@matched) |