The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
{ package Catalyst::Action::SOAP::RPCLiteral;

  use base 'Catalyst::Action::SOAP';
  use MRO::Compat;
  use mro 'c3';

  sub execute {
      my $self = shift;
      my ( $controller, $c ) = @_;
      $self->next::method($controller, $c, $c->stash->{soap}->arguments);
  }
};

1;

__END__

=head1 NAME

Catalyst::Action::SOAP::RPCLiteral - RPC style Literal encoding service

=head1 SYNOPSIS

  # not used directly.

=head1 DESCRIPTION

This class implements the literal encoding dispatch on the service,
which means that the arguments are passed to the service as a xml
object in the parameters.

=head1 TODO

Almost all the SOAP protocol is unsupported, only the method
dispatching and, optionally, the soap-decoding of the arguments are
made.

=head1 AUTHORS

Daniel Ruoso <daniel@ruoso.com>

=head1 BUG REPORTS

Please submit all bugs regarding C<Catalyst::Controller::SOAP> to
C<bug-catalyst-controller-soap@rt.cpan.org>

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut