http://www.perlmonks.org?node_id=399094


in reply to SOAP::Lite Not returning expected results

What would've been useful is a runnable snippet, something like
use SOAP::Lite; use strict; use warnings; my $sd = new SOAP::Deserializer(); my $xml = do { local $_=<<'__THE__SOAP__';s/^\s+//;s/\s+$//;$_ }; <?xml version="1.0" encoding="utf-8"?> <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <soap:Body> <GetMoviesResponse xmlns="http://www.dtmovies.com/websvcs/"> <GetMoviesResult> <Movies xmlns=""> <Movie Title="10 Things I Hate About You" FilmID="474" /> <Movie Title="102 Dalmatians" FilmID="912" /> <Movie Title="13 Going on 30" FilmID="1496" /> <Movie Title="15 Minutes" FilmID="966" /> </Movies> </GetMoviesResult> </GetMoviesResponse> </soap:Body> </soap:Envelope> __THE__SOAP__ my $som = $sd->deserialize($xml); use Data::Dumper; $Data::Dumper::Indent=1; #print Dumper( $sp, $parsed ),$/; #warn Dumper( $som ),$/; warn "$_ => ", Dumper( $som->$_() ),$/ for qw[ paramsall result ]; # root envelope header headers body fault method result paramsin para +msout ]; __END__ paramsall => $VAR1 = { 'Movies' => { 'Movie' => '' } }; result => $VAR1 = { 'Movies' => { 'Movie' => '' } };
It looks to me like a bug in SOAP::Lite, in particular in its XPATH implementation (sub SOAP::SOM::valueof ...).
If     paramsall => '/Envelope/Body/[1]/[>0]', is correct, SOAP::Lite doesn't do the right thing.

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.