dinislage/SOAP-WSDL
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

import SOAP-WSDL 2.00_06 from CPAN

Browse Source 
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
This commit is contained in:
Martin Kutter authored and Michael G. Schwern committed 2009-12-12 19:47:44 -08:00
1 parent a78d6d15b5
commit 25548e6296
45 files changed
+2227 -844
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

lib/SOAP/WSDL/Port.pm
+15 -18
View File
@@ -8,26 +8,23 @@ my %binding_of :ATTR(:name<binding> :default<()>);
my %location_of :ATTR(:name<location> :default<()>);
sub explain {
my $self = shift;
my $opt = shift;
my $txt =
"=head2 Port name: " . $self->get_name() . "\n\n"
. "=over\n\n"
. "=item * Binding: " . $self->get_binding() ."\n\n"
. "=item * Location: " . $self->get_location() ."\n\n"
. "=back\n\n";
# if ( $self->location() );
my %ns_map = reverse %{ $opt->{ namespace } };
my $self = shift;
my $opt = shift;
$opt->{ wsdl } || die 'required attribute wsdl missing';
my $binding = $opt->{ wsdl }->find_binding(
$opt->{ wsdl }->_expand( $self->get_binding() )
) or die 'binding ' . $self->get_binding() . ' not found !';
my $txt = "=head2 Service information:\n\n"
. " Port name: " . $self->get_name() . "\n"
. " Binding: " . $self->get_binding() ."\n"
. " Location: " . $self->get_location() ."\n"
. $binding->explain($opt);
my ($prefix, $localname) = split /:/ , $self->get_binding();
my $binding = $opt->{ wsdl }->find_binding(
$ns_map{ $prefix }, $localname
) or die "binding $prefix:$localname not found !";
$txt .= $binding->explain($opt);
return $txt;
return $txt;
}
sub to_typemap {