Here are the updated sections of code.

SOAP::Schema::WSDL::parse

        foreach ($_->operation) { 
          my $opername = $_->name;
          my $soapaction = $_->operation->soapAction; 
          my $namespace = $_->input->body->namespace; 
          my (@parts, @headers);
          foreach ($s->portType) {
            next unless $_->name eq $porttype; 
            foreach ($_->operation) {
              next unless $_->name eq $opername; 
              my $inputmessage = SOAP::Utils::disqualify($_->input->me
+ssage); 
              my $inputheader = $_->input->header ?
                 SOAP::Utils::disqualify($_->input->header) : ''; 
              foreach ($s->message) {
              if ($_->name eq $inputmessage) {
                  @parts = $_->part; 
                } elsif ($_->name eq $inputheader) {
                 @headers = $_->part; 
               } 
              }
            }
          }
          $services{$opername} = {}; 
          for ($services{$opername}) {
            $_->{endpoint} = $endpoint; 
            $_->{soapaction} = $soapaction; 
            $_->{uri} = $namespace; 
            $_->{parameters} = [@parts]; 
            $_->{header} = [@headers] if @headers; 
.          }
.      }
[download]

SOAP::Schema::stub

  join("\n", 
    "package $package;\n",
    "# -- generated by SOAP::Lite (v$SOAP::Lite::VERSION) for Perl --
soaplite.com -- Copyright (C) 2000-2001 Paul Kulchenko --",<br>
    ($schema ? "# -- generated from $schema [@{[scalar localtime]}]\n"
+ : "\n"),
    'my %methods = (', 
    (map { my $service = $_;
           join("\n", 
                "  $_ => {", 
                map("    $_ => '$services->{$service}{$_}',", qw/endpo
+int
soapaction uri/),
                "    header => [",
                map("      SOAP::Header->new(name => '" . $_->name . 
                           "', type => '" . $_->type . 
                           "', attr => {" . do{ my %attr = %{$_->attr}
+; join
‘, ', map {"'$_' => '$attr{$_}'"} grep {/^xmlns:(?!-)/} keys %attr} . 
                    "}),", @{$services->{$service}{header}}),
                "    ],", 
                "    parameters => [",
                map("      SOAP::Data->new(name => '" . $_->name . 
                           "', type => '" . $_->type . 
                           "', attr => {" . do{ my %attr = %{$_->attr}
+; join
', ', map {"'$_' => '$attr{$_}'"} grep {/^xmlns:(?!-)/} keys %attr} . 
                    "}),", @{$services->{$service}{parameters}}),
                "    ],\n  },",
               ), 
         } keys %$services), 
    ");", <<'EOP'); 
. 
. 
. 
    my @templates = (@{$method{header}}, @{$method{parameters}});
    my $som = $self
      -> endpoint($method{endpoint})
      -> uri($method{uri})
      -> on_action(sub{qq!"$method{soapaction}"!})
      -> call($method => map {@templates ? shift(@templates)->value($_
+) : 
$_} @_); 
    UNIVERSAL::isa($som => 'SOAP::SOM') ? wantarray ? $som->paramsall 
+:
$som->result : $som;
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.