package Catalyst::Action::Serialize::YAML::HTML; use Moose; use namespace::autoclean; extends 'Catalyst::Action'; use YAML::Syck; use URI::Find; our $VERSION = '0.82'; $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 = 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; } 1;