Yet Another CPAN Grep

Plack-Handler-Mongrel2 ( D/DM/DMAKI/Plack-Handler-Mongrel2-0.01000_04.tar.gz, DMAKI, 2011; MetaCPAN )

Plack-Handler-Mongrel2/lib/Plack/Handler/Mongrel2.pm ( view source; MetaCPAN )

ZMQ_POLLIN
    ZMQ_PULL
    ZMQ_PUB
    ZMQ_IDENTITY
    ZMQ_RCVMORE
    ZMQ_LINGER
);
use JSON qw(decode_json);
use HTTP::Status qw(status_message);
use Plack::Util ();
use Plack::Util::Accessor

 my %hdrs;

    if (DEBUG()) {
        print STDERR "[Mongrel2.pm] Decoding JSON '$headers'\n";
    }
    return decode_json $headers;
}

sub _parse_pattern {
    my $pattern = shift;
    if (DEBUG())

y) = _parse_netstring($rest);

    if ( $env{REQUEST_METHOD} eq 'JSON' ) {
        my $json_body = decode_json $body;
        if ($json_body->{type} eq 'disconnect') {
            # noop 
        } el