lib/Catalyst/Action/Deserialize/XML/Simple.pm

   1 package Catalyst::Action::Deserialize::XML::Simple;
   2 use Moose;
   3 extends 'Catalyst::Action';
   4 with 'Catalyst::ActionRole::Deserialize';
   5 use XML::Simple;
   6 use namespace::clean -except => 'meta';
   7
   8 sub deserialize {
   9   my ($self, $content) = @_;
  10   my $x = XML::Simple->new(ForceArray => 0);
  11   my $data = $x->XMLin($content);
  12   $data = $data->{data} if exists $data->{data};
  13   return $data;
  14 }
  15
  16 1;