0586511c68ccf517b2ef50e080c41108eab5f8a2
[kivitendo-erp.git] / JSON.pm
1 package SL::Template::Plugin::JSON;
2
3 use strict;
4 use JSON ();
5 use Carp qw(croak);
6 use base qw(Template::Plugin);
7
8 our $VERSION = "0.06";
9
10 sub new {
11   my ($class, $context, $args) = @_;
12
13   my $self = bless {context => $context, json_args => $args }, $class;
14
15   $context->define_vmethod($_, json => sub { $self->json(@_) }) for qw(hash list scalar);
16
17   return $self;
18 }
19
20 sub json_converter {
21   my ($self, %params) = @_;
22
23   if (!$self->{json}) {
24     $self->{json} = JSON->new->allow_nonref(1)->convert_blessed(1);
25
26     my $args = $self->{json_args};
27
28     for my $method (keys %$args) {
29       if ( $self->{json}->can($method) ) {
30         $self->{json}->$method( $args->{$method} );
31       }
32     }
33   }
34
35   return $self->{json};
36 }
37
38 sub json {
39   my ($self, $value) = @_;
40
41   $self->json_converter->encode($value);
42 }
43
44 sub json_decode {
45   my ( $self, $value ) = @_;
46
47   $self->json_converter->decode($value);
48 }
49
50 1;
51
52 __END__