[scpubgit/stemmatology.git] / stemmaweb / lib / stemmaweb / View / JSON.pm

package stemmaweb::View::JSON;

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

=head1 SYNOPSIS

See L<stemmaweb>

=head1 DESCRIPTION

Catalyst JSON View.

=head1 AUTHOR

Tara Andrews

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.
Commit	Line	Data
5c9ecf66	1	package stemmaweb::View::JSON;
b90c84a0	2
	3	use strict;
	4	use base 'Catalyst::View::JSON';
	5
a8928d1d	6	use JSON::XS ();
	7
	8	sub encode_json {
	9	my( $self, $c, $data ) = @_;
	10	my $json = JSON::XS->new->utf8->convert_blessed(1);
	11	$json->encode( $data );
	12	}
	13
	14	1;
	15
b90c84a0	16	=head1 NAME
b90c84a0	17
5c9ecf66	18	stemmaweb::View::JSON - Catalyst JSON View
b90c84a0	19
	20	=head1 SYNOPSIS
	21
5c9ecf66	22	See L<stemmaweb>
b90c84a0	23
	24	=head1 DESCRIPTION
	25
	26	Catalyst JSON View.
	27
	28	=head1 AUTHOR
	29
	30	Tara Andrews
	31
	32	=head1 LICENSE
	33
	34	This library is free software, you can redistribute it and/or modify
	35	it under the same terms as Perl itself.