Yet Another CPAN Grep

Test-HTTP-MockServer-Once ( I/IG/IGIBBS/Test-HTTP-MockServer-Once-v0.0.2.tar.gz, IGIBBS, 2021; MetaCPAN )

Test-HTTP-MockServer-Once/lib/Test/HTTP/MockServer/Once/REST.pm ( view source; MetaCPAN )

package Test::HTTP::MockServer::Once::REST;
use strict;
use warnings;
use JSON::XS;

sub new {
    my ($class) = shift;
    $class = ref $class || $class;
    my %dispatch = @_;
    return bless { d =

     if ($input_content && $input_ct && $input_ct eq 'application/json') {
            eval {
                $input_data = decode_json $req->content;
            };
            if ($@) {

 && $a eq 'application/json') {
                eval {
                    my $out = encode_json $return_data;
                    $res->header('Content-type', 'application/json');