X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML%2FHTML.pm;h=75d4dfad74b50a7dc9c24bad333a0653aa3b48ba;hb=04eaf27858960701f33ae0a3c7676bf095b81762;hp=d6bddedce357a1644f0c078cf7100d8445e07f6a;hpb=be3c588afb1dd6d6c8e6171c01c3d38afa75d6d5;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize/YAML/HTML.pm b/lib/Catalyst/Action/Serialize/YAML/HTML.pm index d6bdded..75d4dfa 100644 --- a/lib/Catalyst/Action/Serialize/YAML/HTML.pm +++ b/lib/Catalyst/Action/Serialize/YAML/HTML.pm @@ -1,27 +1,23 @@ -# -# Catlyst::Action::Serialize::YAML::HTML.pm -# Created by: Adam Jacob, Marchex, -# Created on: 10/12/2006 03:00:32 PM PDT -# -# $Id$ - package Catalyst::Action::Serialize::YAML::HTML; -use strict; -use warnings; +use Moose; +use namespace::autoclean; -use base 'Catalyst::Action'; +extends 'Catalyst::Action'; use YAML::Syck; use URI::Find; +our $VERSION = '0.91'; +$VERSION = eval $VERSION; + sub execute { my $self = shift; my ( $controller, $c ) = @_; my $stash_key = ( - $controller->config->{'serialize'} ? - $controller->config->{'serialize'}->{'stash_key'} : - $controller->config->{'stash_key'} + $controller->{'serialize'} ? + $controller->{'serialize'}->{'stash_key'} : + $controller->{'stash_key'} ) || 'rest'; my $app = $c->config->{'name'} || ''; my $output = ""; @@ -49,4 +45,6 @@ sub execute { return 1; } +__PACKAGE__->meta->make_immutable; + 1;