Is it possible to get SOAP::Lite to return an array that conforms to what folks have defined in a WSDL file? I'm trying to get SOAP::Lite to produce something like: 

<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/1999/XMLSchema-instanc
+e"
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsd="http://www.w3.org/1999/XMLSchema"
SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<SOAP-ENV:Body>
  <namesp1:doGetClientListResponse xmlns:namesp1="urn:iReserve">
    <records xsi:type="typens:ClientRecordList">
      <ClientArray SOAP-ENC:arrayType="typens:ClientRecord[2]"
xsi:type="SOAP-ENC:Array">
        <ClientRecord xsi:type="typens:ClientRecord">
          <id xsi:type="xsd:Int">1</id>
          <name xsi:type="xsd:String">Bob's Low Cost Insurance</name>
        </ClientRecord>
        <ClientRecord xsi:type="typens:ClientRecord">
          <id xsi:type="xsd:Int">2</id>
          <name xsi:type="xsd:String">Tom's Great Insurance</name>
        </ClientRecord>
      </ClientArray>
    </records>
  </namesp1:doGetClientListResponse>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

[download]

using this routine 

sub doGetClientList {
    # deal with arguments
#    warn Dumper(\@_);
    shift; # remove class name
    my $cookie = shift; # unused currently

    # talk to database
    my $dbh = _dbh();
    my $sql = "select * from client";
    my $sth = $dbh->prepare($sql) or die "prep $sql";
    $sth->execute() or die "exec $sql";

    my $clientlist = [];
    while (my $row = $sth->fetchrow_hashref()) {
#        my $soapclientrec = SOAP::Data->new();
#        $soapclientrec->name('clientrecord');
#        $soapclientrec->type('typens:ClientRecord');
        push(@$clientlist,$row);
    }

    warn "PID=$$ " . Dumper($clientlist);
#    warn "PID=$$ clients=(" . join(',',@$clientlist) . ")";
#    warn "here";

#    return ({records=>$clientlist});

#    return SOAP::Data->name("records" => 
#            SOAP::Data->value(    SOAP::Data->name("client" => @$clie
+ntlist)
#                            ->type("ClientRecord")
#            )
#        )->type("ClientRecordArray");

    my @soaprecs;
    foreach my $row (@$clientlist) {
        foreach my $key (keys %$row) {
            unless (defined $row->{$key}) {
                $row->{$key} = '';
            }
        }
        my $clirec = SOAP::Data->new();
        $clirec->name('ClientRecord');
        #$clirec->value($row->{clientid});
        $clirec->value($row);
        $clirec->type('typens::ClientRecord');
        push(@soaprecs,$clirec);
    }

    #warn Dumper(\@soaprecs);

    my $reccount = scalar(@soaprecs);

    my $clientarray = SOAP::Data->new();
    $clientarray->name('ClientArray');
#    $clientarray->value(@soaprecs);
    $clientarray->value('blah blah');
    $clientarray->attr({'SOAP-ENC:arrayType'=>"typens:ClientRecord[$re
+ccount]",
#            'xsi:type' => 'SOAP-ENC:Array',
        });
    $clientarray->type('SOAP-ENC:Array',);

    my $records = SOAP::Data->new();
    $records->name('records');
    $records->value($clientarray);
    $records->type('typens:ClientRecordList');

#    warn "about to encode array";
#    use warnings;

#    my $serializer = SOAP::Serializer->new();
#    warn "got serializer";
#    my $records = $serializer->encode_array($clientlist,'clientlist',
+'ClientRecordArray',{});
#    my $records = $serializer->encode_object($clientlist,'clientlist'
+,'ClientRecordArray');

#    warn Dumper($records);

    return $records;
}

[download]

I left the various incantations I've tried commented out. So my questions would be these:

1) Is it possible to use SOAP::Lite to produce that SOAP Message above?

2) If it won't do it natively how can I override it's output so I can wack it into shape by hand?

3) Is there any Perl SOAP implementation which validates what the server side is doing against a given WSDL?

4) Should I just give up on SOAP and do something else to move arbitarily complex data structures back and forth between a client written in Mozilla XUL and a server written in Perl?

Any guidance would be greatly appreciated.

janitored by ybiC: Replaced <pre> tags with <code> and wrapped longish codeblock in balanced <readmore> tags, all per Monastery convention

In reply to SOAP::Lite can produce exact tag structure response? by chicks

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.