Substitute XML::Simple for XML::Hash::XS in code

Author: pplu

lib/Paws/Net/RestXMLResponse.pm

@@ -1,6 +1,6 @@
 package Paws::Net::RestXMLResponse;
   use Moose;
-  use XML::Simple qw//;
+  use XML::Hash::XS qw//;
   use Carp qw(croak);
   use HTTP::Status;
   use Paws::Exception;
@@ -10,12 +10,10 @@ package Paws::Net::RestXMLResponse;
 
     return {} if (not defined $data or $data eq '');
 
-    my $xml = XML::Simple->new(
-      ForceArray    => qr/^(?:item|Errors)/i,
-      KeyAttr       => '',
-      SuppressEmpty => undef,
+    my $xml = XML::Hash::XS->new(
+      force_array    => qr/^(?:item|Errors)/i,
     );
-    return $xml->parse_string($data);
+    return $xml->xml2hash($data);
   }
 
   sub process {

lib/Paws/Net/XMLResponse.pm

@@ -1,16 +1,14 @@
 package Paws::Net::XMLResponse;
   use Moose;
-  use XML::Simple qw//;
+  use XML::Hash::XS qw//;
+
   use Carp qw(croak);
   use Paws::Exception;
-
   has _xml_parser => (
     is => 'ro',
     default => sub {
-      return XML::Simple->new(
-        ForceArray    => qr/^(?:item|Errors)/i,
-        KeyAttr       => '',
-        SuppressEmpty => undef,
+      return XML::Hash::XS->new(
+        force_array    => qr/^(?:item|Errors)/i,
       );
     }
   );
@@ -27,7 +25,7 @@ package Paws::Net::XMLResponse;
       );
     }
 
-    my $struct = eval { $self->_xml_parser->parse_string($response->content) };
+    my $struct = eval { $self->_xml_parser->xml2hash($response->content) };
     if ($@){
       return Paws::Exception->throw(
         message => $@,