Branch Coverage

blib/lib/Net/SMTPS.pm
Criterion Covered Total %
branch 0 52 0.0


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'} ? :
60 0 0 ref $hosts ? :
69 0 0 if $obj = $type->SUPER::new(%_args)
76 0 0 unless defined $obj
80 0 0 exists $arg{'Debug'} ? :
85 0 0 if (defined $ssl and $ssl =~ /ssl/i)
87 0 0 unless ($obj->ssl_start)
94 0 0 unless ($obj->response == 2)
105 0 0 unless ($obj->hello($arg{'Hello'} || ''))
111 0 0 if (defined $ssl and $ssl =~ /starttls/i and defined $obj->supports('STARTTLS'))
113 0 0 unless ($obj->starttls)
130 0 0 unless (eval { do { require IO::Socket::SSL } })
136 0 0 exists $arg{'Debug'} ? :
137 0 0 exists $arg{'Debug_SSL'} ? :
141 0 0 unless unshift @Net::SMTPS::ISA, 'IO::Socket::SSL' and 'IO::Socket::SSL'->start_SSL($self, %ssl_args, @_) and $self->isa('IO::Socket::SSL') and bless $self, $type
153 0 0 unless ($self->_STARTTLS and $self->ssl_start(@_))
165 0 0 if ($mech)
166 0 0 if $self->debug
170 0 0 if (exists do { *$self }->{'net_smtp_esmtp'}{'AUTH'})
172 0 0 if $self->debug
175 0 0 if (index($sv, $i) >= 0 and grep(/$i/i, @matched) == ())
180 0 0 if (@matched)
184 0 0 if $self->debug