X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML%2FHTML.pm;h=58352bd98bcda720e44f4132deacae6a5bcc6ca1;hb=44fa7f9429568532ea892e2020c20177b71cb736;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..58352bd 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.04';
+$VERSION = eval $VERSION;
+
sub execute {
my $self = shift;
my ( $controller, $c ) = @_;
@@ -20,7 +23,7 @@ sub execute {
my $output = "";
$output .= "" . $app . "";
$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;