view release on metacpan or  search on metacpan

lib/AnyEvent/XMLRPC.pm  view on Meta::CPAN

package AnyEvent::XMLRPC;

use common::sense;
# roughly the same as, with much lower memory usage:
#
# use strict qw(vars subs);
# use feature qw(say state switch);
# no warnings;

use utf8;
#~ use Data::Dumper;
use Frontier::RPC2;

use base qw(AnyEvent::HTTPD);

=encoding utf8

=head1 NAME

AnyEvent::XMLRPC - Non-Blocking XMLRPC Server. Originally a AnyEvent implementation of Frontier.

samples/frontier-client.pl  view on Meta::CPAN

#!/usr/bin/perl
use Frontier::Client;
use Data::Dumper;

$server = Frontier::Client->new( 'url' => 'http://localhost:9090/RPC2' );
my @args = qw(aaa bbb ccc);
$result = $server->call("echo", @args);

print Dumper $result;