X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML.pm;h=f2ed2a5f9f02b73e38b48e6c29b8ecef4f0979c6;hb=44fa7f9429568532ea892e2020c20177b71cb736;hp=4879af9c3ab4a3e46cd3513e1d7b49de7bdab0c7;hpb=485b516094b4ebb5254bf389760c5aba594343a7;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize/YAML.pm b/lib/Catalyst/Action/Serialize/YAML.pm index 4879af9..f2ed2a5 100644 --- a/lib/Catalyst/Action/Serialize/YAML.pm +++ b/lib/Catalyst/Action/Serialize/YAML.pm @@ -1,18 +1,14 @@ -# -# 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; +our $VERSION = '1.04'; +$VERSION = eval $VERSION; + sub execute { my $self = shift; my ( $controller, $c ) = @_; @@ -22,13 +18,7 @@ sub execute { $controller->{'serialize'}->{'stash_key'} : $controller->{'stash_key'} ) || 'rest'; - my $output; - eval { - $output = $self->serialize($c->stash->{$stash_key}); - }; - if ($@) { - return $@; - } + my $output = $self->serialize($c->stash->{$stash_key}); $c->response->output( $output ); return 1; } @@ -39,4 +29,6 @@ sub serialize { Dump($data); } +__PACKAGE__->meta->make_immutable; + 1;