[catagits/Catalyst-Action-REST.git] / lib / Catalyst / Action / Serialize / XML / Simple.pm

package Catalyst::Action::Serialize::XML::Simple;
use Moose;
extends 'Catalyst::Action';
with 'Catalyst::ActionRole::Serialize';
use XML::Simple;
use namespace::clean -except => 'meta';

sub serialize {
  my ($self, $data, $c) = @_;
  my $x = XML::Simple->new(ForceArray => 0);
  return $x->XMLout({ data => $data });
}

1;
Commit	Line	Data
e601adda	1	package Catalyst::Action::Serialize::XML::Simple;
fc97153d	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 });
e601adda	12	}
	13
	14	1;