X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FJSON.pm;h=e6182489958204fd57c9d69b8d5a7de3931e5b47;hb=HEAD;hp=127014e9c2f0604f977260b1806c2b0b56826492;hpb=aadb0c7d71071a132ca0fde264a32ec6bf02702d;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize/JSON.pm b/lib/Catalyst/Action/Serialize/JSON.pm index 127014e..e618248 100644 --- a/lib/Catalyst/Action/Serialize/JSON.pm +++ b/lib/Catalyst/Action/Serialize/JSON.pm @@ -6,8 +6,6 @@ use namespace::autoclean; extends 'Catalyst::Action'; use JSON::MaybeXS qw(JSON); -# VERSION - has encoder => ( is => 'ro', lazy_build => 1, @@ -22,6 +20,12 @@ sub execute { my $self = shift; my ( $controller, $c ) = @_; + if (my $options = $controller->{json_options_encode}) { + foreach my $opt (keys %$options) { + $self->encoder->$opt( $options->{$opt} ); + } + } + my $stash_key = ( $controller->{'serialize'} ? $controller->{'serialize'}->{'stash_key'} :