Template: wsdl2perl / tmpl / include /
bindingOperation.tt
Version: 1.5
Summary:
Looks like there is a missing data type definition in the
ELSE clause for non custom data type definition.
Here is the current code snippet:
[%- IF parts; %]
my $args = [% FOREACH part = parts -%]
[%- IF loop.index > 0 %], [% END -%]
SOAP::Data->name("[% part.findvalue('@name') %]" =>
$inputParams{'[% part.findvalue('@name') %]'})
[%- IF (part.findvalue('@type').splitqname.0 !
= 'xsd') %]
->type($client->serializer->find_prefix('[%
oper.findvalue('input/soap:body/@namespace') %]').':[%
part.findvalue('@type').splitqname.1 %]')
[%- END -%]
[%- END %];
Here is the suggested fix:
[%- IF parts; %]
my $args = [% FOREACH part = parts -%]
[%- IF loop.index > 0 %], [% END -%]
SOAP::Data->name("[% part.findvalue('@name') %]" =>
$inputParams{'[% part.findvalue('@name') %]'})
[%- IF (part.findvalue('@type').splitqname.0 !
= 'xsd') %]
->type($client->serializer->find_prefix('[%
oper.findvalue('input/soap:body/@namespace') %]').':[%
part.findvalue('@type').splitqname.1 %]')
[%- ELSE -%]
->type(':[% part.findvalue('@type').splitqname.1
%]')
[%- END -%]
[%- END %];
Logged In: YES
user_id=884175
Originator: NO
wsdl2perl has never been released - don't know whether development will continue.
Logged In: YES
user_id=884175
Originator: NO
SOAP::Lite's wsdl2perl is outside the scope of current SOAP::Lite development.