第2回：XML-RPCを利用したWeb API (2/2)

#!/usr/bin/perl
use RPC::XML::Server;
my $host = "www.example.com";
my $port = "9001";
my $server = RPC::XML::Server->new(
      host => $host,
      port => $port,
);

my $example_sum = RPC::XML::Procedure->new(
    { name      => 'example.sum',
      code      => \&example_sum,
      signature => ['i4 i4 i4'] }
);
$server->add_method($example_sum);
$server->server_loop;

sub example_sum {
      my ($num1, $num2 ) = @_;
      return $num1 + $num2;
}


#!/usr/bin/perl
use strict;
use warnings;
use RPC::XML::Client;

my $client = RPC::XML::Client->new('http://www.example.com:9001/');
my $req = RPC::XML::request->new(
  'example.sum',
  RPC::XML::i4->new('10'),
  RPC::XML::i4->new('23'),
);

my $res = $client->send_request($req);
if( $res->is_fault ){
    print "ERROR: ".$res->value->{faultString}."\n";
}else{
    print "SUM: ".$res->value."\n";
}


my $reqobj = RPC::XML::Parser->new->parse($request);
my $name = $reqobj->name;
my @args = map {$_->value} @{$reqobj->args};
my $response = example_sum(@args);
my $resobj = RPC::XML::response->new($response);