Yet Another CPAN Grep

Test-Mojo-Role-Debug-JSON ( A/AT/ATOOMIC/Test-Mojo-Role-Debug-JSON-0.005.tar.gz, ATOOMIC, 2020; MetaCPAN )

Test-Mojo-Role-Debug-JSON/lib/Test/Mojo/Role/Debug/JSON.pm ( view source; MetaCPAN )

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

use Mojo::Base -role;

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

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

# VERSION

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

sub djsona



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

    Test::More::diag( $@ ) && return $self if $@;
    Test::More::diag( "DEBUG JSON DUMPER:\n",
      Test: