Yet Another CPAN Grep

Exception-Reporter ( R/RJ/RJBS/Exception-Reporter-0.015.tar.gz, RJBS, 2022; MetaCPAN )

Exception-Reporter/lib/Exception/Reporter/Sender/Dir.pm ( view source; MetaCPAN )

 when practical, and a generated filename
#pod otherwise.
#pod
#pod =cut

use Digest::MD5 ();
use JSON ();
use Path::Tiny;
use String::Truncate;
use Try::Tiny;

sub new {
  my ($class, $arg) = @_;

              saw a simple error message; adds C<< "handled":true >>
#pod                  to the JSON body of the report
#pod
#pod C<%internal_arg> contains data produced by the Exception::Reporter u

e
#pod reporter.
#pod
#pod The return value of C<send_report> is not defined.
#pod
#pod =cut

my $JSON;

sub send_report {
  my ($self, $summaries, $arg, $internal_arg) = @_;

  # ?!? Presumably this