use strict;
use base 'Catalyst::View::JSON';
+use JSON::XS ();
+
+sub encode_json {
+ my( $self, $c, $data ) = @_;
+ my $json = JSON::XS->new->utf8->convert_blessed(1);
+ $json->encode( $data );
+}
+
+1;
+
=head1 NAME
stemmaweb::View::JSON - Catalyst JSON View
This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.
-
-=cut
-
-1;