[Rio-pm] SOAP::Lite

[Daniel Ruoso]

Em Qua, 2010-04-21 às 13:11 -0300, João André Simioni escreveu:
> Eu nunca construo WebServices, só acesso e eu sei que eu tenho usado o
> SOAP::Lite para fazer acesso a WebServices com WSDL e tenho tido
> vários problemas. O que eu tenho feito agora é baixar o WSDL no
> SOAPUi, abrir a request e copiar a estrutura que ele monta. Importo os
> NS e faço o array das variáveis.

Se você usasse o XML::Compile::SOAP, ia precisar escrever algo como...

my $wsdl = XML::Compile::WSDL->new('/caminho/para/o/arquivo/wsdl');
my $operacao = $wsdl->compileClient('addContatoSSIn');
$operacao->({ passport => {
                  system => {
                      userName => 'GENERICO',
                      position => '0-5220',
                      viewMode => 3
                  }
              },
              addContatoSSIn => { nome => $nome },
              idSS => $idSS
            });

Muito mais legível, não?

daniel