File Coverage

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

Criterion	Covered	Total	%
statement	27	30	90.0
branch	1	2	50.0
condition			n/a
subroutine	9	10	90.0
pod	0	3	0.0
total	37	45	82.2

package App::yajg::Output::Json;

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

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

use App::yajg;
use JSON qw();

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

sub as_string {
    my $self = shift;
    local $SIG{__WARN__} = \&App::yajg::warn_without_line;
    my $json = eval {
        JSON
          ->new
          ->pretty(int not $self->minimal)
          ->allow_nonref
          ->canonical
          ->encode($self->data)
    };
    if ($@) {
        warn $@;
        return '';
    }
    return $json;
}

1;