NAME

MyServer::TestService::TestPort - SOAP Server Class for the TestService Web Service

SYNOPSIS

use MyServer::TestService::TestPort;
my $server = MyServer::TestService::TestPort->new({
   dispatch_to => 'My::Handler::Class',
   transport_class => 'SOAP::WSDL::Server::CGI',   # optional, default
});
$server->handle();

DESCRIPTION

SOAP Server handler for the TestService web service located at http://localhost:81/soap-wsdl-test/person.pl.

SERVICE TestService

Port TestPort

METHODS

General methods

new

Constructor.

The dispatch_to argument is mandatory. It must be a class or object implementing the SOAP Service methods listed below.

SOAP Service methods

Your dispatch_to class has to implement the following methods:

The examples below serve as copy-and-paste prototypes to use in your class.

ListPerson

sub ListPerson {
   my ($self, $body, $header) = @_;
   # body is a MyElements::ListPerson object
   # header is a ??? object - sorry, POD support not implemented yet
   # do something with body and header...

   return  MyElements::ListPersonResponse->new( {
   out =>  { # MyTypes::ArrayOfPerson
     NewElement =>  { # MyTypes::Person
       PersonID =>  { # MyTypes::PersonID
         ID =>  $some_value, # int
       },
       Salutation =>  $some_value, # string
       Name =>  $some_value, # string
       GivenName =>  $some_value, # string
       DateOfBirth =>  $some_value, # date
       HomeAddress =>  { # MyTypes::Address
         Street =>  $some_value, # string
         ZIP =>  $some_value, # string
         City =>  $some_value, # string
         Country =>  $some_value, # string
         PhoneNumber => $some_value, # PhoneNumber
         MobilePhoneNumber => $some_value, # PhoneNumber
       },
       WorkAddress =>  { # MyTypes::Address
         Street =>  $some_value, # string
         ZIP =>  $some_value, # string
         City =>  $some_value, # string
         Country =>  $some_value, # string
         PhoneNumber => $some_value, # PhoneNumber
         MobilePhoneNumber => $some_value, # PhoneNumber
       },
       Contracts =>  { # MyTypes::ArrayOfContract
         Contract =>  { # MyTypes::Contract
           ContractID =>  $some_value, # long
           ContractName =>  $some_value, # string
         },
       },
     },
   },
 },
);

}

AUTHOR

Generated by SOAP::WSDL on Mon May 12 22:04:58 2008