| line |
true |
false |
branch |
|
34
|
0 |
0 |
if (@_ % 2) { } |
|
43
|
0 |
0 |
if ($ssl =~ /ssl/i) |
|
46
|
0 |
0 |
if (defined $arg{'SSL'} and $arg{'SSL'} > 0) |
|
51
|
0 |
0 |
defined $host ? : |
|
62
|
0 |
0 |
defined $_args{'Timeout'} ? : |
|
63
|
0 |
0 |
if (exists $_args{'ResvPort'}) |
|
67
|
0 |
0 |
ref $hosts ? : |
|
70
|
0 |
0 |
if $obj = $type->SUPER::new(%_args) |
|
77
|
0 |
0 |
unless defined $obj |
|
82
|
0 |
0 |
exists $arg{'Debug'} ? : |
|
86
|
0 |
0 |
if ($ssl or defined $arg{'SSL'}) |
|
89
|
0 |
0 |
unless (eval {
do {
require IO::Socket::SSL
}
}) |
|
95
|
0 |
0 |
exists $arg{'Debug'} ? : |
|
99
|
0 |
0 |
if (defined $ssl and $ssl =~ /ssl/i) |
|
101
|
0 |
0 |
unless ($obj->ssl_start(\%ssl_args)) |
|
108
|
0 |
0 |
unless ($obj->response == 2) |
|
117
|
0 |
0 |
if (defined $ssl and $ssl =~ /starttls|stls/i) |
|
118
|
0 |
0 |
unless ($obj->starttls) |
|
130
|
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 |