008d06b72a
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_17 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_17.tar.gz
38 lines
1.3 KiB
Plaintext
38 lines
1.3 KiB
Plaintext
[%
|
|
RETURN IF NOT item;
|
|
message_name = item.get_message;
|
|
IF NOT message_name;
|
|
THROW BAD_WSDL "missing <message> attribute in header for operation ${operation.get_name}";
|
|
END;
|
|
message = definitions.find_message( item.expand( message_name ) );
|
|
PERL %]
|
|
my $message = $stash->{ message };
|
|
my $item = $stash->{ item };
|
|
my $def = $stash->{ definitions };
|
|
my $type_prefix = $stash->{ type_prefix };
|
|
my $element_prefix = $stash->{ element_prefix };
|
|
my ($ns, $lname) = $def->expand( $item->get_part() );
|
|
my ($part) = grep {
|
|
$_->get_name eq $lname
|
|
&& $_->get_targetNamespace eq $ns } @{ $message->get_part( ) };
|
|
my $part_class = do {
|
|
my $name;
|
|
($name = $part->get_element)
|
|
? do {
|
|
$name =~s{ ^[^:]+: }{}xms;
|
|
$element_prefix . '::' . $name;
|
|
}
|
|
: ($name = $part->get_type)
|
|
? do {
|
|
$name =~s{ ^[^:]+: }{}xms;
|
|
$type_prefix . '::' . $name;
|
|
}
|
|
: die "input must have either type or element"
|
|
};
|
|
$stash->{ part_class } = $part_class;
|
|
[% END;
|
|
%]
|
|
'use' => '[% item.get_use %]',
|
|
namespace => '[% item.get_namespace %]',
|
|
encodingStyle => '[% item.get_encodingStyle %]',
|
|
parts => [qw( [% part_class %] )], |