Branch Coverage

blib/lib/Test/SMTP.pm
Criterion Covered Total %
branch 54 74 72.9


line true false branch
33 2 4 if (not defined $params{'AutoHello'} or $params{'AutoHello'} != 1)
42 1 3 unless (defined $smtp)
59 2 1 unless (defined $smtp)
89 2 2 if (_is_between($self->code, 200, 399)) { }
102 1 4 if (_is_between($self->code, 200, 399)) { }
115 4 1 if (not _is_between($self->code, 200, 399)) { }
128 2 2 if (not _is_between($self->code, 200, 399)) { }
141 2 2 if (_is_between($self->code, 400, 499)) { }
154 1 4 if (_is_between($self->code, 400, 499)) { }
167 2 2 if (_is_between($self->code, 500, 599)) { }
180 1 4 if (_is_between($self->code, 500, 599)) { }
212 0 0 if ($result) { }
226 0 0 if ($result) { }
239 0 0 unless ($self->command('STARTTLS')->response == 2)
244 0 0 unless ($self->_convert_to_ssl(@sslargs))
258 0 0 unless ($self->command('STARTTLS')->response == 2)
262 0 0 unless ($self->_convert_to_ssl(@sslargs))
274 0 0 unless require IO::Socket::SSL
278 0 0 unless my $ssl_sock = 'IO::Socket::SSL'->new_from_fd($self->fileno, @sslargs)
289 0 0 if ($self->hello($hello)) { }
302 0 0 if ($self->hello($hello)) { }
316 3 1 if ($self->reset) { }
329 2 1 if ($self->reset) { }
342 2 1 if (defined $self->supports($capa)) { }
354 2 1 if (defined $self->supports($capa)) { }
426 2 2 if ($self->mail_from($from)) { }
439 2 1 if (not $self->mail_from($from)) { }
452 2 2 if ($self->rcpt_to($to)) { }
465 2 1 if (not $self->rcpt_to($to)) { }
478 2 1 if ($self->data == 1) { }
491 1 1 if ($self->data != 1) { }
512 1 1 if ($self->dataend == 1) { }
525 1 1 if ($self->dataend != 1) { }
538 2 1 defined $help_on ? :
549 1 1 defined $help_on ? :
560 1 1 if (_is_between($self->code, 200, 399)) { }
573 1 1 if (_is_between($self->code, 200, 399)) { }