File Coverage

blib/lib/Net/LMTP2.pm

Criterion	Covered	Total	%
statement	12	30	40.0
branch	0	10	0.0
condition	0	4	0.0
subroutine	4	8	50.0
pod	1	1	100.0
total	17	53	32.0

package Net::LMTP2;
$Net::LMTP2::VERSION = '0.2';
# ABSTRACT: A client class for the LMTP protocol
use strict;
use warnings;

use base 'Net::SMTP';
use Net::Cmd;



sub hello {
    my $me     = shift;
    my $domain = shift || "localhost.localdomain";
    my $ok     = $me->_LHLO($domain);
    my @msg    = $me->message;

    if ($ok) {
        my $h = ${*$me}{'net_smtp_esmtp'} = {};
        foreach my $ln (@msg) {
            $h->{uc $1} = $2 if $ln =~ /([-\w]+)\b[= \t]*([^\n]*)/;
        }
    }
    elsif ($me->status == CMD_ERROR) {
        @msg = $me->message if $ok = $me->_HELO($domain);
  }


    return unless $ok;
    ${*$me}{net_smtp_hello_domain} = $domain;
    $msg[0] =~ /\A\s*(\S+)/;
    return ($1 || " ");

}



sub _EHLO { shift->unsupported(@_);}
sub _HELO { shift->unsupported(@_);}
sub _LHLO { shift->command("LHLO", @_)->response() == CMD_OK }
1;

__END__