Branch Coverage

blib/lib/Net/POP3S.pm
Criterion Covered Total %
branch 0 38 0.0


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