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