NAME¶

SYNOPSIS¶

 # CGI version
 use JSON::RPC::Legacy::Server::CGI;
 
 my $server = JSON::RPC::Legacy::Server::CGI->new;

 $server->dispatch_to('MyApp')->handle();
 
 
 
 # Apache version
 # In apache conf
 
 PerlRequire /your/path/start.pl
 PerlModule MyApp
 
 <Location /jsonrpc/API>
      SetHandler perl-script
      PerlResponseHandler JSON::RPC::Legacy::Server::Apache
      PerlSetVar dispatch "MyApp"
      PerlSetVar return_die_message 0
 </Location>
 
 
 
 # Daemon version
 use JSON::RPC::Legacy::Server::Daemon;
 
 JSON::RPC::Legacy::Server::Daemon->new(LocalPort => 8080);
                          ->dispatch({'/jsonrpc/API' => 'MyApp'})
                          ->handle();
 
 
 
 # FastCGI version
 use JSON::RPC::Legacy::Server::FastCGI;
 
 my $server = JSON::RPC::Legacy::Server::FastCGI->new;
 
    $server->dispatch_to('MyApp')->handle();

DESCRIPTION¶

Parses its JSON data.

Passes the server object and the object decoded from the JSON data to your procedure (method).

Takes your returned value (scalar or arrayref or hashref).

Sends a response.

Well, you write your procedure code only.

METHODS¶

new

Creates new JSON::RPC::Legacy::Server object.

dispatch($package)

dispatch([$package1, $package1, ...])

dispatch({$path => $package, ...})

Sets your procedure module using package name list or arrayref or hashref. Hashref version is used for path_info access.

dispatch_to

An alias to "dispatch".

handle

Runs server object and returns a response.

raise_error(%hash)

 return $server->raise_error(
    code => 501,
    message => "This is error in my procedure."
 );
    

Sets an error. An error code number in your procedure is an integer between 501 and 899.

json

Setter/Getter to json encoder/decoder object. The default value is JSON object in the below way:

 JSON->new->utf8
    

In your procedure, changes its behaviour.

 $server->json->utf8(0);
    

The JSON coder creating method is "create_json_coder".

version

Setter/Getter to JSON-RPC protocol version used by a client. If version is 1.1, returns 1.1. Otherwise returns 0.

charset

Setter/Getter to charset. Default is 'UTF-8'.

content_type

Setter/Getter to content type. Default is 'application/json'.

return_die_message

When your program dies in your procedure, sends a return object with error message 'Procedure error' by default.

If this option is set, uses "die" message.

 sub your_procedure {
     my ($s) = @_;
    $s->return_die_message(1);
    die "This is test.";
 }
    

retrieve_json_from_post

It is used by JSON::RPC::Legacy::Server subclass.

retrieve_json_from_get

In the protocol v1.1, 'GET' request method is also allowable.

It is used by JSON::RPC::Legacy::Server subclass.

response

It is used by JSON::RPC::Legacy::Server subclass.

request

Returns HTTP::Request object.

path_info

Returns PATH_INFO.

max_length

Returns max content-length to your application.

translate_error_message

Implemented in your subclass. Three arguments (server object, error code and error message) are passed. It must return a message.

 sub translate_error_message {
     my ($s, $code, $message) = @_;
     return $translation_jp_message{$code};
 }
    

create_json_coder

(Class method) Returns a JSON de/encoder in "new". You can override it to use your favorite JSON de/encode.

RESERVED PROCEDURE¶

<http://json-rpc.org/wd/JSON-RPC-1-1-WD-20060807.html#ProcedureCall>

<http://json-rpc.org/wd/JSON-RPC-1-1-WD-20060807.html#ServiceDescription>

There is JSON::RPC::Legacy::Server::system::describe for default response of 'system.describe'.

SEE ALSO¶

<http://json-rpc.org/wd/JSON-RPC-1-1-WD-20060807.html>

<http://json-rpc.org/wiki/specification>

AUTHOR¶

COPYRIGHT AND LICENSE¶

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