Make ::XS ones be a bare extension over JSON classes and ensure that
JSON::XS is loaded or die.
use Moose;
use namespace::autoclean;
use Scalar::Util qw(openhandle);
+BEGIN {
+ $ENV{'PERL_JSON_BACKEND'} = 2; # Always use compiled JSON::XS
+}
extends 'Catalyst::Action';
use JSON;
--- /dev/null
+package Catalyst::Action::Deserialize::JSON::XS;
+
+use Moose;
+use namespace::autoclean;
+
+extends 'Catalyst::Action::Deserialize::JSON';
+use JSON::XS ();
+
+our $VERSION = '1.00';
+$VERSION = eval $VERSION;
+
+__PACKAGE__->meta->make_immutable;
+
+1;
use Moose;
use namespace::autoclean;
+BEGIN {
+ $ENV{'PERL_JSON_BACKEND'} = 2; # Always use compiled JSON::XS
+}
extends 'Catalyst::Action';
use JSON ();
our $VERSION = '1.00';
$VERSION = eval $VERSION;
-sub _build_encoder { return JSON::XS->new->utf8->convert_blessed }
-
__PACKAGE__->meta->make_immutable;
1;