X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Action-Serialize-Data-Serializer.git;a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FXML%2FSimple.pm;fp=lib%2FCatalyst%2FAction%2FSerialize%2FXML%2FSimple.pm;h=0000000000000000000000000000000000000000;hp=c8f0e26d8bcefc004b0698877eb6769f083c03a8;hb=79025f72c27ba313b3c701cee238f84166f32f9e;hpb=f10c7e1c7eb3b4cb10401dbb86ca8db3dc38ced2 diff --git a/lib/Catalyst/Action/Serialize/XML/Simple.pm b/lib/Catalyst/Action/Serialize/XML/Simple.pm deleted file mode 100644 index c8f0e26..0000000 --- a/lib/Catalyst/Action/Serialize/XML/Simple.pm +++ /dev/null @@ -1,37 +0,0 @@ -package Catalyst::Action::Serialize::XML::Simple; - -use Moose; -use namespace::autoclean; - -extends 'Catalyst::Action'; - -our $VERSION = '1.07'; -$VERSION = eval $VERSION; - -sub execute { - my $self = shift; - my ( $controller, $c ) = @_; - - eval { - require XML::Simple - }; - if ($@) { - $c->log->debug("Could not load XML::Serializer, refusing to serialize: $@") - if $c->debug; - return; - } - my $xs = XML::Simple->new(ForceArray => 0,); - - my $stash_key = ( - $controller->{'serialize'} ? - $controller->{'serialize'}->{'stash_key'} : - $controller->{'stash_key'} - ) || 'rest'; - my $output = $xs->XMLout({ data => $c->stash->{$stash_key} }); - $c->response->output( $output ); - return 1; -} - -__PACKAGE__->meta->make_immutable; - -1;