X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML%2FHTML.pm;h=73e3b972039160d998ef9e33b5d7f97874b93c1b;hb=refs%2Ftags%2F1.08;hp=fddead3793e7e810a7436a7b3927d60526507eba;hpb=10bcd217c37d68aabbb0db8a5a7e233e679cb945;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 fddead3..73e3b97 100644 --- a/lib/Catalyst/Action/Serialize/YAML/HTML.pm +++ b/lib/Catalyst/Action/Serialize/YAML/HTML.pm @@ -1,12 +1,15 @@ 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 = '1.08'; +$VERSION = eval $VERSION; + sub execute { my $self = shift; my ( $controller, $c ) = @_; @@ -20,7 +23,7 @@ sub execute { my $output = ""; $output .= "
"; - my $text = Dump($c->stash->{$stash_key}); + my $text = HTML::Entities::encode(Dump($c->stash->{$stash_key})); # Straight from URI::Find my $finder = URI::Find->new( sub { @@ -42,4 +45,6 @@ sub execute { return 1; } +__PACKAGE__->meta->make_immutable; + 1;