File Coverage

blib/lib/Test/Mojo/Role/Debug/JSON.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	33	35	94.2

package Test::Mojo::Role::Debug::JSON;
$Test::Mojo::Role::Debug::JSON::VERSION = '0.003';
# ABSTRACT: a JSON extension to Test::Mojo::Role::Debug

use Mojo::Base -role;

with 'Test::Mojo::Role::Debug';

use Carp qw/croak/;

use Mojo::JSON qw{from_json};
use Test::More ();

# VERSION

sub djson {
    my ( $self ) = @_;
    return $self->success ? $self : $self->djsona;
}

sub djsona {
    my ( $self ) = @_;

    local $@;
    my $json = eval { from_json( $self->tx->res->content->asset->slurp ) };

    Test::More::diag( $@ ) if $@;
    Test::More::diag( "DEBUG JSON DUMPER:\n", Test::More::explain(  $json ) ) if ref $json;

    return $self;
}

1;

__END__