NAME

AnyEvent::JSONRPC::Server - Base class for JSON-RPC Servers

SYNOPSIS

use AnyEvent::JSONRPC::XXX::Server;

my $server = AnyEvent::JSONRPC::TCP::Server->new( ... );
$server->reg_cb(
    echo => sub {
        my ($res_cv, @params) = @_;
        $res_cv->result(@params);
    },
    sum => sub {
        my ($res_cv, @params) = @_;
        $res_cv->result( $params[0] + $params[1] );
    },
);

DESCRIPTION

This is the base class for servers in the AnyEvent::JSONRPC suite of modules. Current implementations includes a TCP client and a HTTP client. See these for arguments to the constructors.

METHOD

new (%options)

Create server object, start listening socket, and return object.

my $server = AnyEvent::JSONRPC::TCP::Server->new(
    port => 4423,
);

Available %options are specific to each implementation

reg_cb (%callbacks)

Register JSONRPC methods.

$server->reg_cb(
    echo => sub {
        my ($res_cv, @params) = @_;
        $res_cv->result(@params);
    },
    sum => sub {
        my ($res_cv, @params) = @_;
        $res_cv->result( $params[0] + $params[1] );
    },
);

callback arguments

JSONRPC callback arguments consists of $result_cv, and request @params.

my ($result_cv, @params) = @_;

$result_cv is AnyEvent::JSONRPC::CondVar object. Callback must be call $result_cv->result to return result or $result_cv->error to return error.

If $result_cv->is_notification() returns true, this is a notify request and the result will not be send to the client.

@params is same as request parameter.

AUTHOR

Daisuke Murase <typester@cpan.org>

COPYRIGHT AND LICENSE

Copyright (c) 2009 by KAYAC Inc.

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

The full text of the license can be found in the LICENSE file included with this module.