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

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

sub deserialize {
  my ($self, $content) = @_;
  my $x = XML::Simple->new(ForceArray => 0);
  my $data = $x->XMLin($content);
  $data = $data->{data} if exists $data->{data};
  return $data;
}

1;
Commit	Line	Data
e601adda	1	package Catalyst::Action::Deserialize::XML::Simple;
b153f31c	2	use Moose;
b153f31c	3	extends 'Catalyst::Action';
b92bf58f	4	with 'Catalyst::ActionRole::DeserializeFormat';
b153f31c	5	use XML::Simple;
b153f31c	6	use namespace::clean -except => 'meta';
e601adda	7
b153f31c	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;
e601adda	14	}
	15
	16	1;