1
2
3
4
5
6
7

use JSON::RPC::Spec;

my $rpc = JSON::RPC::Spec->new;
$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}