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%2FJSON.pm;fp=lib%2FCatalyst%2FAction%2FSerialize%2FJSON.pm;h=0000000000000000000000000000000000000000;hp=1079604f3f6ac58f5e2e3c51a64dc936d758322e;hb=79025f72c27ba313b3c701cee238f84166f32f9e;hpb=f10c7e1c7eb3b4cb10401dbb86ca8db3dc38ced2 diff --git a/lib/Catalyst/Action/Serialize/JSON.pm b/lib/Catalyst/Action/Serialize/JSON.pm deleted file mode 100644 index 1079604..0000000 --- a/lib/Catalyst/Action/Serialize/JSON.pm +++ /dev/null @@ -1,44 +0,0 @@ -package Catalyst::Action::Serialize::JSON; - -use Moose; -use namespace::autoclean; - -extends 'Catalyst::Action'; -use JSON (); - -our $VERSION = '1.07'; -$VERSION = eval $VERSION; - -has encoder => ( - is => 'ro', - lazy_build => 1, -); - -sub _build_encoder { - my $self = shift; - return JSON->new->utf8->convert_blessed; -} - -sub execute { - my $self = shift; - my ( $controller, $c ) = @_; - - my $stash_key = ( - $controller->{'serialize'} ? - $controller->{'serialize'}->{'stash_key'} : - $controller->{'stash_key'} - ) || 'rest'; - my $output = $self->serialize( $c->stash->{$stash_key} ); - $c->response->output( $output ); - return 1; -} - -sub serialize { - my $self = shift; - my $data = shift; - $self->encoder->encode( $data ); -} - -__PACKAGE__->meta->make_immutable; - -1;