X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FJSON%2FXS.pm;h=b4d6089f4d72faff1af26580ab7196464bd32fce;hb=be099c6c6c1f5b9f6c3c543762c1c1fcde82946a;hp=b1f4850db86df8257c52fa66452ad0dd28e69330;hpb=485b516094b4ebb5254bf389760c5aba594343a7;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize/JSON/XS.pm b/lib/Catalyst/Action/Serialize/JSON/XS.pm index b1f4850..b4d6089 100644 --- a/lib/Catalyst/Action/Serialize/JSON/XS.pm +++ b/lib/Catalyst/Action/Serialize/JSON/XS.pm @@ -1,14 +1,17 @@ package Catalyst::Action::Serialize::JSON::XS; -use strict; -use warnings; +use Moose; +use namespace::autoclean; +BEGIN { + $ENV{'PERL_JSON_BACKEND'} = 2; # Always use compiled JSON::XS +} -use base 'Catalyst::Action::Serialize::JSON'; -use JSON::XS qw(encode_json); +extends 'Catalyst::Action::Serialize::JSON'; +use JSON::XS (); -sub serialize { - my $self = shift; - encode_json( shift ); -} +our $VERSION = '1.03'; +$VERSION = eval $VERSION; + +__PACKAGE__->meta->make_immutable; 1;