File Coverage

blib/lib/Exception/Reporter/Summarizer/Fallback.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	24	26	92.3

use strict;
use warnings;
package Exception::Reporter::Summarizer::Fallback;
# ABSTRACT: a summarizer for stuff you couldn't deal with otherwise
$Exception::Reporter::Summarizer::Fallback::VERSION = '0.013';
use parent 'Exception::Reporter::Summarizer';

#pod =head1 OVERVIEW
#pod
#pod This summarizer will accept any input and summarize it by dumping it with the
#pod Exception::Reporter's dumper.
#pod
#pod I recommended that this summarizer is always in your list of summarizers,
#pod and always last.
#pod
#pod =cut

use Try::Tiny;

sub can_summarize { 1 }

sub summarize {
  my ($self, $entry, $internal_arg) = @_;
  my ($name, $value, $arg) = @$entry;

  my $fn_base = $self->sanitize_filename($name);

  my $dump = $self->dump($value, { basename => $fn_base });

  return {
    filename => "$fn_base.txt",
    ident    => "dump of $name",
    %$dump,
  };
}

1;

__END__