X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML%2FHTML.pm;h=5529a45825a627c413a1d91686a199bbebcd89f7;hb=e527bba30dcea5108b0fb77416fcb4e8ee1e5a38;hp=54791b4acc497e055b81c39a9fdac8a690cfe8e6;hpb=a621925a32cd4036a1a864a0a373d4852ead9b34;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 54791b4..5529a45 100644 --- a/lib/Catalyst/Action/Serialize/YAML/HTML.pm +++ b/lib/Catalyst/Action/Serialize/YAML/HTML.pm @@ -1,24 +1,24 @@ -# -# 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.87'; +$VERSION = eval $VERSION; + sub execute { my $self = shift; my ( $controller, $c ) = @_; - my $stash_key = $controller->config->{'serialize'}->{'stash_key'} || 'rest'; + my $stash_key = ( + $controller->{'serialize'} ? + $controller->{'serialize'}->{'stash_key'} : + $controller->{'stash_key'} + ) || 'rest'; my $app = $c->config->{'name'} || ''; my $output = ""; $output .= "" . $app . ""; @@ -29,7 +29,7 @@ sub execute { sub { my($uri, $orig_uri) = @_; my $newuri; - if ($uri =~ /?/) { + if ($uri =~ /\?/) { $newuri = $uri . "&content-type=text/html"; } else { $newuri = $uri . "?content-type=text/html";