File Coverage

blib/lib/Test/JSON/RPC/Autodoc/Response.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	2	4	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	42	46	91.3

package Test::JSON::RPC::Autodoc::Response;
use strict;
use warnings;
use HTTP::Message::PSGI;
use parent qw/HTTP::Response/;
use Data::Recursive::Encode;
use Encode qw/decode_utf8 encode_utf8/;
use JSON qw//;

sub HTTP::Response::from_json {
    my $self = shift;
    my $content = $self->content();
    return unless $content;
    return JSON::from_json(decode_utf8($content));
}

sub HTTP::Response::pretty_json {
    my $self = shift;
    my $content = $self->content();
    return unless $content;
    my $data = JSON::from_json(decode_utf8($content));
    my $json = JSON::to_json($data, { pretty => 1 });
    return $json;
}

1;