X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML.pm;h=c6dbe43129b025eb6a29303ed190781070aa6c66;hb=e527bba30dcea5108b0fb77416fcb4e8ee1e5a38;hp=ec328ca252d357a60ac39e504f7e0ca079f6c409;hpb=eccb21379de1fbdc65740e0cb4158d3b4d055cab;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize/YAML.pm b/lib/Catalyst/Action/Serialize/YAML.pm index ec328ca..c6dbe43 100644 --- a/lib/Catalyst/Action/Serialize/YAML.pm +++ b/lib/Catalyst/Action/Serialize/YAML.pm @@ -1,25 +1,32 @@ -# -# Catlyst::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; +our $VERSION = '0.87'; +$VERSION = eval $VERSION; + sub execute { my $self = shift; - my ( $controller, $c, $test ) = @_; + my ( $controller, $c ) = @_; - my $stash_key = $controller->serialize->{'stash_key'} || 'rest'; - $c->response->output( Dump( $c->stash->{$stash_key} ) ); + 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;