File Coverage

blib/lib/Dotiac/DTL/Addon/jsonify.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	19	20	95.0

###############################################################################
#jsonify.pm
#Last Change: 2009-01-21
#Copyright (c) 2009 Marc-Seabstian "Maluku" Lucksch
#Version 0.1
####################
#This file is an addon to the Dotiac::DTL project.
#http://search.cpan.org/perldoc?Dotiac::DTL
#
#jsonify.pm is published under the terms of the MIT license, which basically
#means "Do with it whatever you want". For more information, see the
#license.txt file that should be enclosed with this distribution\. A copy of
#the license is (at the time of writing) also available at
#http://www.opensource.org/licenses/mit-license.php .
###############################################################################


package Dotiac::DTL::Addon::jsonify;
use strict;
use warnings;
require JSON;

#If it is not already loaded.
require Dotiac::DTL::Filter;
require Dotiac::DTL::Value;



our $VERSION=0.1;

our $json=JSON->new();

#Global options, allow as much as possible.
$json->allow_nonref(1);
$json->allow_blessed(1);
$json->allow_unknown(1);


my $oldjsonify;

sub import {
	$oldjsonify = *{Dotiac::DTL::Filter::jsonify};
	*{Dotiac::DTL::Filter::jsonify}=\&jsonify;

}
sub unimport {
	*{Dotiac::DTL::Filter::jsonify} = $oldjsonify;
}

sub jsonify {
	my $value=shift;
	$Dotiac::DTL::Addon::jsonify::json->pretty(0);
	$Dotiac::DTL::Addon::jsonify::json->ascii(1);
	$value->safe(1);
	return $value->set($json->encode($value->content));
}

1;

__END__