1package PostApp::Controller::WS2;
2
3use strict;
4use warnings;
5use base 'Catalyst::Controller::SOAP::RPC';
6
7sub hello : Local SOAP('RPCLiteral') {
8    my ( $self, $c, $body ) = @_;
9    my $who = $body->string_value();
10    $c->stash->{soap}->string_return('Hello '.$who.'!');
11}
12
131;
14