Yet Another CPAN Grep

Test-Mock-Net-Server-Mail ( B/BE/BENNING/Test-Mock-Net-Server-Mail-1.02.tar.gz, BENNING, 2019; MetaCPAN )

Test-Mock-Net-Server-Mail/lib/Test/Mock/Net/Server/Mail.pm ( view source; MetaCPAN )

Server::Mail::ESMTP;
use IO::Socket::INET;
use IO::File;
use Test::More;
use Test::Exception;
use JSON;
use File::Temp;


has 'bind_address' => ( is => 'ro', isa => 'Str', default => '127.0.0.1' );
ha

f = shift;
  my $line = $self->_log_fh->getline;
  if($line) {
    chomp $line;
    return decode_json $line;
  }
  return;
}


sub next_log_ok {
  my ($self, $verb, $params, $text) = @_;
  my $log =


    $params_out = $verb.' passed unprintable '.ref($params);
  }
  $self->_write_log(
    encode_json( {
      verb => $verb,
      defined $params_out ? (params => $params_out) : (),
    } )."\n"