use strict;
use JSON::RPC::Client;
my $cgi_uri = 'http://example.com/cgi-bin/json/server.cgi/API'; my $uri = 'http://example.com/jsonrpc/API';
my $client = new JSON::RPC::Client;
$client->prepare( $uri, ['sum', 'echo'] );
print $client->sum(10, 23), "\n";
print $client->echo("abc\ndef"), "\n";
my $callobj = {
method => 'sum2',
params => [ 17, 25 ], };
my $res = $client->call($cgi_uri, $callobj);
if($res) {
if ($res->is_error) {
print "Error : ", $res->error_message;
}
else {
print $res->result;
}
}
else {
print $client->status_line;
}