Martin Kutter
25548e6296
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_06 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_06.tar.gz
65 lines
1.5 KiB
Perl
65 lines
1.5 KiB
Perl
package SOAP::WSDL::OpMessage;
|
|
use strict;
|
|
use warnings;
|
|
use Class::Std::Storable;
|
|
use base qw(SOAP::WSDL::Base);
|
|
|
|
my %body_of :ATTR(:name<body> :default<()>);
|
|
my %message_of :ATTR(:name<message> :default<()>);
|
|
my %use_of :ATTR(:name<use> :default<()>);
|
|
my %namespace :ATTR(:name<namespace> :default<()>);
|
|
my %encodingStyle_of :ATTR(:name<encodingStyle> :default<()>);
|
|
|
|
sub explain
|
|
{
|
|
my $self = shift;
|
|
my $opt = shift;
|
|
my $name = shift;
|
|
my $txt = '';
|
|
|
|
my %ns_map = reverse %{ $opt->{ wsdl }->get_xmlns() };
|
|
|
|
if ( $self->get_message() ) {
|
|
|
|
my ($prefix, $localname) = split /:/ , $self->get_message();
|
|
|
|
# TODO allow more messages && overloading by specifying name
|
|
my $message = $opt->{ wsdl }->get_message(
|
|
$ns_map{ $prefix }, $localname
|
|
);
|
|
|
|
for my $part(@{ $message->[0]->get_part() }) {
|
|
$txt .= $part->explain($opt);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if ($self->use())
|
|
{
|
|
$txt .= " $name use: " . $self->use(). "\n";
|
|
}
|
|
}
|
|
return $txt;
|
|
}
|
|
|
|
sub to_typemap {
|
|
|
|
my ($self, $opt) = @_;
|
|
my $txt = q{};
|
|
return q{} if not ( $self->get_message() ); # we're in binding
|
|
my %ns_map = reverse %{ $opt->{ wsdl }->get_xmlns() };
|
|
my ($prefix, $localname) = split /:/ , $self->get_message();
|
|
|
|
# TODO allow more messages && overloading by specifying name
|
|
my $message = $opt->{ wsdl }->find_message(
|
|
$ns_map{ $prefix }, $localname
|
|
);
|
|
|
|
for my $part(@{ $message->get_part() }) {
|
|
$txt .= $part->to_typemap($opt);
|
|
}
|
|
return $txt;
|
|
}
|
|
|
|
1;
|