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}

# 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);
});

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"}

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'}

PERL_JSON_RPC_SPEC_DEBUG = 1