X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML.pm;h=c3f900394aef53871b1b412c02045011760ff4cb;hb=71cbfa6b6eb4670d838af0f640c1c2402637f2c4;hp=8a5939d9cfddfb296201a5712cebd191e51b8a99;hpb=9a76221ea1453d244e65429d3e10b5bde42d7733;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize/YAML.pm b/lib/Catalyst/Action/Serialize/YAML.pm index 8a5939d..c3f9003 100644 --- a/lib/Catalyst/Action/Serialize/YAML.pm +++ b/lib/Catalyst/Action/Serialize/YAML.pm @@ -1,32 +1,29 @@ -# -# Catalyst::Action::Serialize::YAML.pm -# Created by: Adam Jacob, Marchex, -# Created on: 10/12/2006 03:00:32 PM PDT -# -# $Id$ - package Catalyst::Action::Serialize::YAML; -use strict; -use warnings; +use Moose; +use namespace::autoclean; -use base 'Catalyst::Action'; +extends 'Catalyst::Action'; use YAML::Syck; sub execute { my $self = shift; my ( $controller, $c ) = @_; - my $stash_key = $controller->config->{'serialize'}->{'stash_key'} || 'rest'; - my $output; - eval { - $output = Dump($c->stash->{$stash_key}); - }; - if ($@) { - return $@; - } + my $stash_key = ( + $controller->{'serialize'} ? + $controller->{'serialize'}->{'stash_key'} : + $controller->{'stash_key'} + ) || 'rest'; + my $output = $self->serialize($c->stash->{$stash_key}); $c->response->output( $output ); return 1; } +sub serialize { + my $self = shift; + my $data = shift; + Dump($data); +} + 1;