X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML.pm;h=911191b2629323f61ffd12dcfccba49eb09818e2;hb=930013e6f19b25a090c3f8839495ad8d9b15ff6d;hp=c9435698c34cd640acef6b89a1b26dbddef74a06;hpb=07682cbc3e3c974a32b52eec5cc8c7035a5c12ed;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize/YAML.pm b/lib/Catalyst/Action/Serialize/YAML.pm index c943569..911191b 100644 --- a/lib/Catalyst/Action/Serialize/YAML.pm +++ b/lib/Catalyst/Action/Serialize/YAML.pm @@ -1,16 +1,9 @@ -# -# 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 { @@ -24,7 +17,7 @@ sub execute { ) || 'rest'; my $output; eval { - $output = Dump($c->stash->{$stash_key}); + $output = $self->serialize($c->stash->{$stash_key}); }; if ($@) { return $@; @@ -33,4 +26,10 @@ sub execute { return 1; } +sub serialize { + my $self = shift; + my $data = shift; + Dump($data); +} + 1;