package TestApp::Controller::RPC::Settings;
use strict;
use base 'Catalyst::Controller';
sub test : XMLRPC {
my ($self, $c, @args ) = @_;
my $xmlrpc = $c->req->xmlrpc;
my %rv = (
sub_args => \@args,
xmlrpc_args => $xmlrpc->args,
xmlrpc_params => $xmlrpc->params,
catalyst_args => $c->req->args,
catalyst_params => $c->req->params,
params_same => $c->req->params == $xmlrpc->params,
args_same => ($c->req->args == $xmlrpc->args),
is_xmlrpc => $xmlrpc->is_xmlrpc_request,
method => $xmlrpc->method,
body => $xmlrpc->body,
);
$c->stash->{xmlrpc} = \%rv;
}
1;