Branch Coverage

blib/lib/Test/SMTP.pm
Criterion Covered Total %
branch 34 70 48.5


line true false branch
92 2 4 if (not defined $params{'AutoHello'} or $params{'AutoHello'} != 1)
101 1 3 unless (defined $smtp)
123 2 1 unless (defined $smtp)
175 0 4 if (_is_between($self->code, 200, 399)) { }
193 0 5 if (_is_between($self->code, 200, 399)) { }
212 5 0 if (not _is_between($self->code, 200, 399)) { }
231 4 0 if (not _is_between($self->code, 200, 399)) { }
249 0 4 if (_is_between($self->code, 400, 499)) { }
267 0 5 if (_is_between($self->code, 400, 499)) { }
285 4 0 if (_is_between($self->code, 500, 599)) { }
303 5 0 if (_is_between($self->code, 500, 599)) { }
351 0 0 if ($result) { }
371 0 0 if ($result) { }
389 0 0 unless ($self->command('STARTTLS')->response == Net::Cmd::CMD_OK())
394 0 0 unless ($self->_convert_to_ssl)
413 0 0 unless ($self->command('STARTTLS')->response == Net::Cmd::CMD_OK())
417 0 0 unless ($self->_convert_to_ssl)
429 0 0 unless require IO::Socket::SSL
433 0 0 unless my $ssl_sock = 'IO::Socket::SSL'->new_from_fd($self->fileno)
449 0 0 if ($self->hello($hello)) { }
467 0 0 if ($self->hello($hello)) { }
486 1 3 if ($self->reset) { }
504 0 3 if ($self->reset) { }
522 2 1 if (defined $self->supports($capa)) { }
539 2 1 if (defined $self->supports($capa)) { }
651 1 3 if ($self->mail_from($from)) { }
669 3 0 if (not $self->mail_from($from)) { }
687 0 4 if ($self->rcpt_to($to)) { }
705 3 0 if (not $self->rcpt_to($to)) { }
724 0 3 if ($self->data == 1) { }
742 2 0 if ($self->data != 1) { }
768 0 2 if ($self->dataend == 1) { }
786 2 0 if ($self->dataend != 1) { }
832 1 1 if (_is_between($self->code, 200, 399)) { }
850 1 1 if (_is_between($self->code, 200, 399)) { }