File Coverage

blib/lib/App/yajg/Output/Perl.pm

Criterion	Covered	Total	%
statement	36	40	90.0
branch	4	6	66.6
condition	1	2	50.0
subroutine	10	12	83.3
pod	0	3	0.0
total	51	63	80.9

package App::yajg::Output::Perl;

use 5.014000;
use strict;
use warnings;
use utf8;

use parent qw(App::yajg::Output);

use App::yajg;
use Data::Dumper qw();

sub lang              {'perl'}    # lang for highlight
sub need_change_depth {0}         # need to change max depth via Data::Dumper

sub as_string {
    my $self = shift;
    local $SIG{__WARN__} = \&App::yajg::warn_without_line;
    local $Data::Dumper::Useperl = 1;
    no warnings 'redefine';
    local *Data::Dumper::qquote = sub {
        my $d = shift;
        $d =~ s/\\/\\\\/g;
        $d =~ s/'/\\'/g;
        utf8::encode($d) if utf8::is_utf8($d);
        return "'$d'";
    };
    my $perl = eval {
        Data::Dumper->new([$self->data])
          ->Indent(int not $self->minimal)
          ->Pair($self->minimal ? '=>' : ' => ')
          ->Terse(1)
          ->Sortkeys(int not $self->minimal)
          ->Useqq(1)
          ->Maxdepth($self->max_depth // 0)
          ->Dump()
    };
    if ($@) {
        warn $@;
        return '';
    }
    return $perl;
}

1;