Yet Another CPAN Grep

Mail-Sieve ( P/PO/POLETTIX/Mail-Sieve-0.002.tar.gz, POLETTIX, 2024; MetaCPAN )

Mail-Sieve/lib/Mail/Sieve/Server.pm ( view source; MetaCPAN )

::Mail::ESMTP;
use JSON::PP ();

use Exporter qw< import >;
our @EXPORT_OK = qw<
   mojo_ioloop_server_callback_factory
>;
our %EXPORT_TAGS = (all => \@EXPORT_OK);

sub _encode_json_pretty ($data) {

  state $encoder = JSON::PP->new->ascii->canonical->pretty;
   return $encoder->encode($data);
}

sub _require_class_module ($module) {
   require_module($module) unless $module->can('new');
   return


      $log->trace(_encode_json_pretty($call_sequence))
         if $log->is_trace;

      $out eq 'accept';
   }
   catch {
      my $e = $_;
      $log->error(_encode_json_pretty($e->data));
      u