feat: very small implementation of Net::LMTP

Net/LMTP.pm

@@ -0,0 +1,39 @@
+package Net::LMTP;
+
+use strict;
+use warnings;
+
+use base 'Net::SMTP';
+
+
+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;