Yet Another CPAN Grep

Plack-Middleware-JSON ( F/FU/FUKAI/Plack-Middleware-JSON-0.01.tar.gz, FUKAI, 2015; MetaCPAN )

Plack-Middleware-JSON/lib/Plack/Middleware/JSON.pm ( view source; MetaCPAN )

kage Plack::Middleware::JSON;
use strict;
use warnings;
use parent qw/Plack::Middleware/;
use JSON::XS;
use URI::Escape;
our $VERSION = 0.01;

use Plack::Util::Accessor qw/json_key callback_key/;

sub

  if (defined $self->json_key) {
        my $json_key = $self->json_key() . '|' . $self->callback_key; 
        $self->json_key($json_key);
    }   
    else {
        $self->json_key($self->callback_

1]);
            my $json_key = $self->json_key;
            my $content_type = $h->get('Content-Type') || '';
            if (($json_key and $env->{QUERY_STRING} =~ /(?:^|&)($json_key)=([^&]+)/) or $