package TestApp::Controller::WS;
use strict;
use warnings;
use base 'Catalyst::Controller::SOAP';
sub hello :Local SOAP('DocumentLiteral') {
my ($self, $c, $body) = @_;
my $world = $body->textContent;
$c->stash->{soap}->string_return('Hello '.$world.'!');
}
sub foo :Local SOAP('HTTPGet') {
my ($self, $c) = @_;
my $world = $c->req->param('who');
$c->stash->{soap}->string_return('Hello '.$world.'!');
}
1;