use a json view instead of writing json directly

[chaz/chatty] / lib / Chatty / View / JSON.pm

diff --git a/lib/Chatty/View/JSON.pm b/lib/Chatty/View/JSON.pm
new file mode 100644 (file)
index 0000000..30510ca
--- /dev/null
+++ b/lib/Chatty/View/JSON.pm
@@ -0,0 +1,37 @@
+package Chatty::View::JSON;
+
+use JSON::XS ();
+
+use Moose;
+use MooseX::NonMoose;
+use namespace::autoclean;
+
+extends 'Catalyst::View::JSON';
+
+sub encode_json {
+       my ($self, $c, $data) = @_;
+       JSON::XS->new->ascii->pretty->allow_nonref->encode($data);
+}
+
+=head1 NAME
+
+Chatty::View::JSON - Catalyst View
+
+=head1 DESCRIPTION
+
+Catalyst View.
+
+=head1 AUTHOR
+
+Charles McGarvey
+
+=head1 LICENSE
+
+This library is free software. You can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+__PACKAGE__->meta->make_immutable;
+
+1;