Yet Another CPAN Grep

Perinci-WebScript-JSON ( P/PE/PERLANCAR/Perinci-WebScript-JSON-0.002.tar.gz, PERLANCAR, 2018; MetaCPAN )

Perinci-WebScript-JSON/lib/Perinci/WebScript/JSON.pm ( view source; MetaCPAN )

## no critic: ValuesAndExpressions::ProhibitCommaSeparatedStatements

package Perinci::WebScript::JSON;

our $DATE = '2018-11-22'; # DATE
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
u

   die $res unless $res->[0] == 200;
    my $meta = $res->[2];

    # create PSGI app
    require JSON::MaybeXS;
    require Perinci::Sub::GetArgs::WebForm;
    require Plack::Request;
    my $app = s

;

        [
            $res->[0],
            ['Content-Type' => 'application/json; charset=UTF-8'],
            [JSON::MaybeXS->new->allow_nonref(1)->encode($res->[2])],
        ],
    };

    # de