Use XML::Hash::XS with native suppress_empty support

Author: slobo

cpanfile

@@ -7,7 +7,7 @@ requires 'Data::Compare';
 requires 'URI';
 requires 'Net::Amazon::Signature::V4';
 requires 'JSON::MaybeXS';
-requires 'XML::Hash::XS';
+requires 'XML::Hash::XS', '>= 0.54'; # 0.54 introduces suppress_empty option
 requires 'IO::Socket::SSL';
 requires 'DateTime';
 requires 'DateTime::Format::ISO8601';

lib/Paws/Net/RestXMLResponse.pm

@@ -1,6 +1,6 @@
 package Paws::Net::RestXMLResponse;
   use Moose;
-  use XML::Hash::XS qw//;
+  use XML::Hash::XS 0.54 qw//; # 0.54 introduces suppress_empty option
   use Carp qw(croak);
   use HTTP::Status;
   use Paws::Exception;
@@ -12,6 +12,7 @@ package Paws::Net::RestXMLResponse;
 
     my $xml = XML::Hash::XS->new(
       force_array    => qr/^(?:item|Errors)/i,
+      suppress_empty => undef,
     );
     return $xml->xml2hash($data);
   }

lib/Paws/Net/XMLResponse.pm

@@ -1,6 +1,6 @@
 package Paws::Net::XMLResponse;
   use Moose;
-  use XML::Hash::XS qw//;
+  use XML::Hash::XS 0.54 qw//; # 0.54 introduces suppress_empty option
 
   use Carp qw(croak);
   use Paws::Exception;
@@ -9,7 +9,7 @@ package Paws::Net::XMLResponse;
     default => sub {
       return XML::Hash::XS->new(
         force_array    => qr/^(?:item|Errors)/i,
-        # SuppressEmpty => undef,
+        suppress_empty => undef,
       );
     }
   );
@@ -27,7 +27,6 @@ package Paws::Net::XMLResponse;
     }
 
     my $struct = eval { $self->_xml_parser->xml2hash($response->content) };
-    $struct = _emulate_xml_simple_supress_empty($struct);
     if ($@){
       return Paws::Exception->throw(
         message => $@,
@@ -39,20 +38,6 @@ package Paws::Net::XMLResponse;
     return $struct;
   }
 
-  sub _emulate_xml_simple_supress_empty {
-    my ($struct) = @_;
-    return undef unless $struct;
-    foreach (keys %$struct) {
-      if (ref $struct->{$_} eq 'HASH') {
-        _emulate_xml_simple_supress_empty($struct->{$_})
-      }
-      elsif (defined $struct->{$_} && $struct->{$_} eq '') {
-        $struct->{$_} = undef;
-      }
-    }
-    return $struct;
-  }
-
   sub process {
     my ($self, $call_object, $response) = @_;