view release on metacpan or  search on metacpan

lib/AnyEvent/RPC/Enc/REST.pm  view on Meta::CPAN

	}
}


our %H2X = (
	arrs   => 0,
	attr   => '-',
#	text   => '~',
	join   => '',
	trim   => 1,
	cdata  => undef,
	comm   => undef,
);

sub request {
	my $self = shift;
	my $rpc = shift;
	my %args = @_;
	$args{data} = hash2xml( $args{data}, %H2X ) if $args{data} and ref $args{data};
	$args{headers}{'Content-Type'} = 'text/xml';
	$self->next::method($rpc,%args);