1use lib '../../lib';
2use lib '../lib';
3use SOAP::WSDL::Server::Simple;
4
5use base qw(HTTP::Server::Simple::CGI);
6
7use MyServer::HelloWorld::HelloWorldSoap;
8
9sub handle_request {
10     my ($self, $cgi) = @_;
11     my $server = MyServer::HelloWorld::HelloWorldSoap->new({
12         dispatch_to => 'main',
13         transport_class => 'SOAP::WSDL::Server::Simple',
14     });
15     $server->handle($cgi);
16 }
17
18 my $httpd = __PACKAGE__->new(8081);
19 $httpd->run();
20
21sub sayHello {
22    my ($self, $body, $header) = @_;
23    my $name = $body->get_name();
24    my $givenName = $body->get_givenName();
25
26    return MyElements::sayHelloResponse->new({
27        sayHelloResult => "Hello $givenName $name"
28    })
29}