view release on metacpan or  search on metacpan

samples/anyevent-xmlrpc-serv.pl  view on Meta::CPAN

#!/usr/bin/perl
#~ use lib "lib";
use AnyEvent::XMLRPC;

my $serv = AnyEvent::XMLRPC->new(
	#~ port	=> 9090,
	#~ uri	=> "/RPC2",
	methods => {
		'echo' => \&echo,
	},
);

sub echo {
	@rep = qw(bala bababa);
	return \@rep;
}

$serv->run;