#!/usr/bin/perl use strict; use Test; plan tests => 5; local $/ = undef; my $xml = ; use SOAP::Lite; my $som = SOAP::Deserializer->new->deserialize($xml); my $result = $som->result(); ok (@$result == 2); ok $result->[0]->isa('outer'); ok $result->[1]->isa('outer'); ok $result->[1]->{ kids }->[0]->isa('inner'); ok $result->[1]->{ kids }->[1]->isa('inner'); __DATA__ a aa ab b ba bb