1 package OpenILS::Template::Plugin::JSON;
2 use strict; use warnings;
5 use base qw/Template::Plugin/;
10 $class = ref($class) || $class;
12 return bless($self,$class);
16 my( $self, $perl ) = @_;
17 return JSON->perl2JSON($perl);
22 my( $self, $perl ) = @_;
23 return JSON->JSON2perl($perl);
27 my( $self, $perl ) = @_;
28 return JSON->perl2prettyJSON($perl);