[Rio-pm] SOAP::Light

[Andre Luis]

Ola a todos,

Estou tentando montar um script usando SOAP::Ligth mais ele não esta
montando a xml corretamente alguem pode me dar uma luz ?

#!/usr/bin/perl


use SOAP::Lite  'trace', 'debug';

@params = (
    SOAP::Data->name('primeiro' => \SOAP::Data->value (
            SOAP::Data->name( 'nome'      => 'andre' ),
            SOAP::Data->name( 'idade'  => '12' ),
            SOAP::Data->name( 'cidade'     => 'rio' )
        )
    )
);

print SOAP::Lite
    -> readable(1)
    -> uri('http:/servidor/')
    -> proxy('http://servidor/script.asmx')
    -> on_fault(
sub { my($soap, $res) = @_;
      die ref $res ? $res->faultstring : $soap->transport->status, "\n";
})
    -> call(@params)
    -> result;


o resultado do xml eh
<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
    soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <primeiro xsi:nil="true" />
      </soap:Body>
</soap:Envelope>

e deveria ter
<primeiro>
   <nome> andre </nome>
   <idade> 12 </idade>
   <cidade> rj </cidade>
</primeiro>

Obrigado pela ajuda
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20081003/604a52c4/attachment.html>