0cbf981665
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_33 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_33.tar.gz
24 lines
961 B
Plaintext
24 lines
961 B
Plaintext
sub [% operation.get_name %] {
|
|
my ($self, $body, $header) = @_;
|
|
die "[% operation.get_name %] must be called as object method (\$self is <$self>)" if not blessed($self);
|
|
return $self->SUPER::call({
|
|
operation => '[% operation.get_name %]',
|
|
soap_action => '[% operation.first_operation.get_soapAction %]',
|
|
style => [% style = operation.first_operation.get_style || binding.get_style;
|
|
IF style != "document";
|
|
THROW NOT_SUPPORTED "SOAP::WSDL supports document encoding only - $style found";
|
|
END;
|
|
-%]
|
|
'[% style %]',
|
|
body => {
|
|
[% INCLUDE Interface/Body.tt( item = operation.first_input.first_body ); %]
|
|
},
|
|
header => {
|
|
[% INCLUDE Interface/Header.tt( item = operation.first_input.first_header ); %]
|
|
},
|
|
headerfault => {
|
|
[% INCLUDE Interface/Header.tt( item = operation.first_input.first_headerfault ); %]
|
|
}
|
|
}, $body, $header);
|
|
}
|