X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Action-REST.git;a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FXML%2FSimple.pm;h=644656c5a16bf27650a96f66ac7ab4eeaab8ee6a;hp=8b54c2824270e1fdae6530032bf8109328d7c99b;hb=3bb36dcaabf34fef5c15b1bb74c5eb198a7f5168;hpb=be3c588afb1dd6d6c8e6171c01c3d38afa75d6d5 diff --git a/lib/Catalyst/Action/Serialize/XML/Simple.pm b/lib/Catalyst/Action/Serialize/XML/Simple.pm index 8b54c28..644656c 100644 --- a/lib/Catalyst/Action/Serialize/XML/Simple.pm +++ b/lib/Catalyst/Action/Serialize/XML/Simple.pm @@ -1,16 +1,12 @@ -# -# Catlyst::Action::Serialize::XML::Simple.pm -# Created by: Adam Jacob, Marchex, -# Created on: 10/12/2006 03:00:32 PM PDT -# -# $Id$ - package Catalyst::Action::Serialize::XML::Simple; -use strict; -use warnings; +use Moose; +use namespace::autoclean; + +extends 'Catalyst::Action'; -use base 'Catalyst::Action'; +our $VERSION = '0.82'; +$VERSION = eval $VERSION; sub execute { my $self = shift; @@ -22,22 +18,16 @@ sub execute { if ($@) { $c->log->debug("Could not load XML::Serializer, refusing to serialize: $@") if $c->debug; - return 0; + return; } my $xs = XML::Simple->new(ForceArray => 0,); my $stash_key = ( - $controller->config->{'serialize'} ? - $controller->config->{'serialize'}->{'stash_key'} : - $controller->config->{'stash_key'} + $controller->{'serialize'} ? + $controller->{'serialize'}->{'stash_key'} : + $controller->{'stash_key'} ) || 'rest'; - my $output; - eval { - $output = $xs->XMLout({ data => $c->stash->{$stash_key} }); - }; - if ($@) { - return $@; - } + my $output = $xs->XMLout({ data => $c->stash->{$stash_key} }); $c->response->output( $output ); return 1; }