1 package Catalyst::Action::Serialize::JSON;
4 use namespace::autoclean;
6 $ENV{'PERL_JSON_BACKEND'} = 2; # Always use compiled JSON::XS
9 extends 'Catalyst::Action';
12 our $VERSION = '1.00';
13 $VERSION = eval $VERSION;
22 return JSON->new->utf8->convert_blessed;
27 my ( $controller, $c ) = @_;
30 $controller->{'serialize'} ?
31 $controller->{'serialize'}->{'stash_key'} :
32 $controller->{'stash_key'}
34 my $output = $self->serialize( $c->stash->{$stash_key} );
35 $c->response->output( $output );
42 $self->encoder->encode( $data );
45 __PACKAGE__->meta->make_immutable;