JSON::RPC2::AnyEvent - Yet-another, transport-independent and asynchronous JSON-RPC 2.0 implementation
use JSON::RPC2::AnyEvent::Server;
my $srv = JSON::RPC2::AnyEvent::Server->new(
hello => "[family_name, first_name]" => sub{
my ($cv, $args, $original_args) = @_;
my ($family, $given) = @$args;
do_some_async_task(sub{
# Done!
$cv->send("Hello, $given $family!");
});
}
);
my $cv = $srv->dispatch({
jsonrpc => "2.0",
id => 1,
method => 'hello',
params => [qw(Sogoru Kyo)],
});
my $res = $cv->recv; # { jsonrpc => "2.0", id => 1, result => "Hello, Kyo Sogoru!" }
my $cv = $srv->dispatch({
jsonrpc => "2.0",
id => 2,
method => 'hello',
params => {first_name => 'Ryoko', family_name => 'Kaminagi'} # You can pass a hash as well!
});
my $res = $cv->recv; # { jsonrpc => "2.0", id => 2, result => "Hello, Ryoko Kaminagi!" }
# For Notification Request, just returns undef.
my $cv = $srv->dispatch({
jsonrpc => "2.0",
method => "hello",
params => ["Misaki", "Shizuno"]
}); # notification request when "id" is omitted.
not defined $cv; # true
JSON::RPC2::AnyEvent is yet-another JSON-RPC 2.0 implementation. This module is very similar to JSON::RPC2 and actually shares the main goals. That is, transport independent, asynchronous, and light-weight. However, this module is designed so that it works with AnyEvent, especially with AnyEvent::Handle.
JSON::RPC2::AnyEvent considers JSON-RPC as simple as possible. For example, JSON::RPC2::Server abstracts JSON-RPC server as a kind of hash filter. Unlike JSON::RPC2::Server accepts and outputs serialized JSON text, JSON::RPC2::AnyEvent::Server accepts and outputs Perl hash:
+----------+
| |
Inuput | JSON-RPC | Output
request ---------->| Server |----------> response
(as a hash) | | (as a hash)
+----------+
Actually, it accepts any kind of Perl data (array, hash, and scalar!), then, outputs a JSON-like hash. Response hash can be either of successful response or error response. Anyway, it's a hash!
What you need to do is just to make or retrieve a JSON-like data structure in some way, and input it into the server, then, get the result as a hash.
Actually, JSON::RPC2::AnyEvent just treats Perl data structures instead of JSON, and has nothing to with serializing
Perl data or deserializing JSON text. This concept allows you to use JSON-RPC on any kind of transport layer.
In particular, this way is excellent with AnyEvent::Handle, such as $h->push_read(json => sub{...}) and
$h->push_write(json => ...).
If you are interested in a "real" solution, you should look at JSON::RPC2::AnyEvent::Server::Handle, which is an example to use this module on stream protocol like TCP.
Copyright (C) Daisuke (yet another) Maki.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Daisuke (yet another) Maki maki.daisuke@gmail.com