view release on metacpan or  search on metacpan

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
#~ use lib "lib";
use AnyEvent::XMLRPC;
 
my $serv = AnyEvent::XMLRPC->new(
        #~ port => 9090,
        #~ uri  => "/RPC2",
        methods => {
                'echo' => \&echo,
        },
);