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

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