Open-ILS/src/perlmods/OpenILS/Template/Plugin/JSON.pm

   1 package OpenILS::Template::Plugin::JSON;
   2 use strict; use warnings;
   3
   4 use Template::Plugin;
   5 use base qw/Template::Plugin/;
   6 use JSON;
   7
   8 sub new {
   9         my ($class) = @_;
  10         $class = ref($class) || $class;
  11         my $self = {};
  12         return bless($self,$class);
  13 }
  14
  15 sub perl2JSON {
  16         my( $self, $perl ) = @_;
  17         return JSON->perl2JSON($perl);
  18 }
  19
  20
  21 sub JSON2perl {
  22         my( $self, $perl ) = @_;
  23         return JSON->JSON2perl($perl);
  24 }
  25
  26 sub perl2prettyJSON {
  27         my( $self, $perl ) = @_;
  28         return JSON->perl2prettyJSON($perl);
  29 }
  30
  31
  32 1;