Yet Another CPAN Grep

Catalyst-Plugin-Server-JSONRPC-Batch ( D/DI/DIONYS/Catalyst-Plugin-Server-JSONRPC-Batch-0.02.tar.gz, DIONYS, 2012; MetaCPAN )

Catalyst-Plugin-Server-JSONRPC-Batch/lib/Catalyst/Plugin/Server/JSONRPC/Batch.pm ( view source; MetaCPAN )

gin::Server::JSONRPC::Batch;

use strict;
use warnings;

use Class::Load ();
use HTTP::Body ();


our $VERSION = '0.02';

our $Method = 'system.handle_batch';


BEGIN {
	my $class = 'JSON::RPC::Common

q 'ARRAY') {
				return $class->new_from_data(
					jsonrpc => '2.0',
					id      => scalar(time()),
					method  => $Catalyst::Plugin::Server::JSONRPC::Batch::Method,
					params  => $args[0]
				);

up_engine {
	my $app = shift();

	$app->server->jsonrpc->add_private_method(
		$Method => sub {
			my ($c, @args) = @_;

			my $config = $c->server->jsonrpc->config;
			my $req    = $c->req;
			my $re