mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-05-16 22:16:33 +02:00
27 lines
428 B
Perl
Executable file
27 lines
428 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Client
|
|
use JSON::RPC::Client;
|
|
|
|
my $client = new JSON::RPC::Client;
|
|
|
|
my $uri = 'http://www.example.com/jsonrpc/Test';
|
|
my $obj = {
|
|
method => 'sum', # or 'MyApp.sum'
|
|
params => [10, 20],
|
|
};
|
|
|
|
my $res = $client->call( $uri, $obj )
|
|
|
|
if($res){
|
|
if ($res->is_error) {
|
|
print "Error : ", $res->error_message;
|
|
}
|
|
else {
|
|
print $res->result;
|
|
}
|
|
}
|
|
else {
|
|
print $client->status_line;
|
|
}
|