/ 
JSON-RPC-Spec-0.03
River stage one • 2 direct dependents • 2 total dependents
/ JSON::RPC::Spec

NAME

JSON::RPC::Spec - Yet another JSON-RPC 2.0 Implementation

SYNOPSIS

use strict;
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}

DESCRIPTION

JSON::RPC::Spec is Yet another JSON-RPC 2.0 Implementation.

JSON format string execute registerd method

FUNCTIONS

new

my $rpc = JSON::RPC::Spec->new;

create instance

register

# 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.

parse

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.

parse_without_encode

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.

DEBUGGING

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

SEE ALSO

http://search.cpan.org/dist/JSON-RPC/

http://search.cpan.org/dist/JSON-RPC-Dispatcher/

http://search.cpan.org/dist/JSON-RPC-Common/

LICENSE

Copyright (C) nqounet.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

nqounet <mail@nqou.net>