Martin Kutter
915ee03cbe
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.02 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.02.tar.gz
15 lines
351 B
Perl
15 lines
351 B
Perl
package Mod_Perl2Test;
|
|
use strict; use warnings;
|
|
use Class::Std::Fast;
|
|
|
|
sub sayHello {
|
|
my ($self, $body, $header) = @_;
|
|
my $name = $body->get_name();
|
|
my $givenName = $body->get_givenName();
|
|
|
|
die "FOO" if ($name eq '__DIE__');
|
|
|
|
return MyElements::sayHelloResponse->new({
|
|
sayHelloResult => "Hello $givenName $name"
|
|
})}
|
|
1; |