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}