1package TestApp2::Controller::WS;
2
3use strict;
4use warnings;
5use base 'Catalyst::Controller::SOAP';
6
7__PACKAGE__->config->{wsdl} = 't/hello.wsdl';
8
9sub Greet :WSDLPort('GreetPort') {
10    my ($self, $c, $args) = @_;
11    my $who = $args->{parameters}{who};
12    my $grt = $args->{parameters}{greeting};
13    my $num = $args->{parameters}{count};
14    $c->stash->{soap}->compile_return({ details => { greeting => $num.' '.$grt.' '.$who.'!'.(ref $num||'') }});
15}
16
171;
18