view release on metacpan or  search on metacpan

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

	
	# Now I'm AnyEvent::XMLRPC
	bless $self, $class;
	
	
	# register methods, use Frontier::RPC2 to encode/decode xml
	${$self}{'methods'} = $methods;
	${$self}{'decode'} = new Frontier::RPC2 'use_objects' => $args{'use_objects'};
	
	
	# register AnyEvent(::HTTPD) callbacks
	$self->reg_cb (
		'/RPC2' => sub {
			my ($httpd, $req) = @_;
			
			#~ my $reply = ${$self}{'decode'}->serve(
					#~ $req->content, ${$self}{'methods'}
			#~ );
			
			$req->respond ({ content => [
				'text/xml',