CPAN::Groonga

package Template::Plugin::SimpleJson;

use 5.006;
use strict;

our $VERSION = '0.01';

use Template::Plugin;
use base qw( Template::Plugin );
use JSON;

sub load {
	my $class = shift;
	my $context = s

	return $self;
}

sub  fromJson{
	my $self = shift;
	my $jsonText = shift;
	return from_json($jsonText);
}

sub  toJson{
	my $self = shift;
	my $o = shift;
	return to_json($o);
}

1;

__END__

=head1

e::Plugin::SimpleJson - Simple JSON methods for Template Toolkit

=head1 SYNOPSIS

  [% USE SimpleJson %]

  [% scalar = SimpleJson.fromJson(json_text) %]
  [% text = SimpleJson.toJson(scalar) %]

=he