X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Action-Serialize-Data-Serializer.git;a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML%2FHTML.pm;fp=lib%2FCatalyst%2FAction%2FSerialize%2FYAML%2FHTML.pm;h=0000000000000000000000000000000000000000;hp=2c590990417f597f09fd99c8c34bf53df1c545db;hb=79025f72c27ba313b3c701cee238f84166f32f9e;hpb=f10c7e1c7eb3b4cb10401dbb86ca8db3dc38ced2 diff --git a/lib/Catalyst/Action/Serialize/YAML/HTML.pm b/lib/Catalyst/Action/Serialize/YAML/HTML.pm deleted file mode 100644 index 2c59099..0000000 --- a/lib/Catalyst/Action/Serialize/YAML/HTML.pm +++ /dev/null @@ -1,50 +0,0 @@ -package Catalyst::Action::Serialize::YAML::HTML; - -use Moose; -use namespace::autoclean; - -extends 'Catalyst::Action'; -use YAML::Syck; -use URI::Find; - -our $VERSION = '1.07'; -$VERSION = eval $VERSION; - -sub execute { - my $self = shift; - my ( $controller, $c ) = @_; - - my $stash_key = ( - $controller->{'serialize'} ? - $controller->{'serialize'}->{'stash_key'} : - $controller->{'stash_key'} - ) || 'rest'; - my $app = $c->config->{'name'} || ''; - my $output = ""; - $output .= "
"; - my $text = HTML::Entities::encode(Dump($c->stash->{$stash_key})); - # Straight from URI::Find - my $finder = URI::Find->new( - sub { - my($uri, $orig_uri) = @_; - my $newuri; - if ($uri =~ /\?/) { - $newuri = $uri . "&content-type=text/html"; - } else { - $newuri = $uri . "?content-type=text/html"; - } - return qq|$orig_uri|; - }); - $finder->find(\$text); - $output .= $text; - $output .= ""; - $output .= ""; - $output .= ""; - $c->response->output( $output ); - return 1; -} - -__PACKAGE__->meta->make_immutable; - -1;