JSON::RPC::Spec - Yet another JSON-RPC 2.0 Implementation
use strict;
use JSON::RPC::Spec;
my $rpc = JSON::RPC::Spec->new;
# server
$rpc->register(echo => sub { $_[0] });
print $rpc->parse(
'{"jsonrpc": "2.0", "method": "echo", "params": "Hello, World!", "id": 1}'
); # -> {"jsonrpc":"2.0","result":"Hello, World!","id":1}
# client
print $rpc->compose(echo => 'Hello, World!', 1);
# -> {"jsonrpc":"2.0","method":"echo","params":"Hello, World!","id":1}
JSON::RPC::Spec is Yet another JSON-RPC 2.0 Implementation.
JSON format string execute registered method.
JSON::RPC - PSGI
The tightly also supports BATCH.
As a feature. 1. JSON string to JSON string. 2. Simple register callback.
constructor.
options "coder" in JSON::RPC::Spec::Common and "router" are available.
# method => code refs
use List::Util qw(max);
$rpc->register(max => sub { max(@{$_[0]}) });
# method matching via Router::Simple
$rpc->register('myapp.{action}' => sub {
my ($params, $match) = @_;
my $action = $match->{action};
return MyApp->new->$action($params);
});
register method.
my $result = $rpc->parse(
'{"jsonrpc": "2.0", "method": "max", "params": [9,4,11,0], "id": 1}'
); # returns JSON encoded string -> {"id":1,"result":11,"jsonrpc":"2.0"}
parse JSON and triggered method. returns JSON encoded string.
my $result = $rpc->parse_without_encode(
'{"jsonrpc": "2.0", "method": "max", "params": [9,4,11,0], "id": 1}'
); # returns hash -> {id => 1, result => 11, jsonrpc => '2.0'}
parse JSON and triggered method. returns HASH.
See "compose" in JSON::RPC::Spec::Client for full documentation.
similar Router::Simple.
You can set the PERL_JSON_RPC_SPEC_DEBUG
environment variable to get some advanced diagnostics information printed to STDERR
.
PERL_JSON_RPC_SPEC_DEBUG = 1
http://search.cpan.org/dist/JSON-RPC/
http://search.cpan.org/dist/JSON-RPC-Dispatcher/
http://search.cpan.org/dist/JSON-RPC-Common/
Copyright (C) nqounet.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
nqounet <[email protected]>