File Coverage

blib/lib/Exception/Reporter/Dumper/YAML.pm

Criterion	Covered	Total	%
statement	29	37	78.3
branch	5	10	50.0
condition	3	8	37.5
subroutine	9	11	81.8
pod	0	1	0.0
total	46	67	68.6

use strict;
use warnings;
package Exception::Reporter::Dumper::YAML;
# ABSTRACT: a dumper to turn any scalar value into a plaintext YAML record
$Exception::Reporter::Dumper::YAML::VERSION = '0.013';
use parent 'Exception::Reporter::Dumper';

use Try::Tiny;
use YAML::XS ();

sub _ident_from {
  my ($self, $str, $x) = @_;

  $str =~ s/\A\n+//;
  ($str) = split /\n/, $str;

  unless (defined $str and length $str and $str =~ /\S/) {
    $str = sprintf "<>", $x ? ' ($x)' : '';
  }

  return $str;
}

sub dump {
  my ($self, $value, $arg) = @_;
  my $basename = $arg->{basename} || 'dump';

  my ($dump, $error) = try {
    (YAML::XS::Dump($value), undef);
  } catch {
    (undef, $_);
  };

  if (defined $dump) {
    my $ident = ref $value     ? (try { "$value" } catch { "" })
              : defined $value ? "$value" # quotes in case of glob, vstr, etc.
              :                  "(undef)";

    $ident = $self->_ident_from($ident);

    return {
      filename => "$basename.yaml",
      mimetype => 'text/plain',
      body     => $dump,
      ident    => $ident,
    };
  } else {
    my $string = try { "$value" } catch { "value could not stringify: $_" };
    my $ident  = $self->_ident_from($string);

    return {
      filename => "$basename.txt",
      mimetype => 'text/plain',
      body     => <
__DATA__