NAME

MyInterfaces::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 ??? object - sorry, POD not implemented yet
   # header is a ??? object - sorry, POD 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 Dec 3 22:20:32 2007