X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML.pm;h=b57d5322c43af2427c03842a3a47c12355c09bec;hb=d0822465cc09629df95ad9c522bce758f2badc8c;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..b57d532 100644 --- a/lib/Catalyst/Action/Serialize/YAML.pm +++ b/lib/Catalyst/Action/Serialize/YAML.pm @@ -1,25 +1,34 @@ -# -# 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 = '1.02'; +$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); +} + +__PACKAGE__->meta->make_immutable; + 1;