From 05d4021bdec9ebd786b71e839d233f2d29650702 Mon Sep 17 00:00:00 2001 From: levinse Date: Sun, 28 Nov 2010 22:04:08 +0000 Subject: make the XML to hash stuff produce an empty string for empty elements instead of suppressing them - much easier to test for empty values than to test for no specific keys in a hash --- lib/Net/Ikano.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/Net/Ikano.pm') diff --git a/lib/Net/Ikano.pm b/lib/Net/Ikano.pm index de40912..c1e4b87 100644 --- a/lib/Net/Ikano.pm +++ b/lib/Net/Ikano.pm @@ -321,6 +321,8 @@ sub AUTOLOAD { return "invalid HTTP response from Ikano: " . $resp->status_line unless $resp->is_success; my $respxml = $resp->decoded_content; + + $xs = new Net::Ikano::XMLUtil(RootName => undef, SuppressEmpty => ''); my $resphash = $xs->XMLin($respxml); warn "DEBUG RESPONSE\n\tHASH:\n ".Dumper($resphash)."\n\tXML:\n $respxml" -- cgit v1.2.1