1#!/usr/bin/perl -w
2
3use strict;
4
5use JSON::RPC::Client;
6
7
8my $cgi_uri = 'http://example.com/cgi-bin/json/server.cgi/API'; # CGI
9my $uri     = 'http://example.com/jsonrpc/API'; # Apache2 or daemon
10
11
12my $client = new JSON::RPC::Client;
13
14$client->prepare( $uri, ['sum', 'echo'] ); # if call /API/Sublcass, sum method return (sum * 2)
15
16print $client->sum(10, 23), "\n";
17print $client->echo("abc\ndef"), "\n";
18
19
20
21my $callobj = {
22   method  => 'sum2',
23   params  => [ 17, 25 ], # ex.) params => { a => 20, b => 10 } for JSON-RPC v1.1
24};
25
26my $res = $client->call($cgi_uri, $callobj);
27
28if($res) {
29   if ($res->is_error) {
30       print "Error : ", $res->error_message;
31   }
32   else {
33       print $res->result;
34   }
35}
36else {
37   print $client->status_line;
38}
39
40
41
42
43