File Coverage

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

Criterion	Covered	Total	%
statement	34	34	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	46	46	100.0

###############################################################################
#json.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
#
#json.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 libsofu distributions. 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::json;
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 $oldjson;
my $oldjson_ascii;
my $oldjson_pretty;
my $oldjson_ascii_pretty;

sub import {
	$oldjson = *{Dotiac::DTL::Filter::json};
	$oldjson_ascii = *{Dotiac::DTL::Filter::json_ascii};
	$oldjson_pretty = *{Dotiac::DTL::Filter::json_pretty};
	$oldjson_ascii_pretty = *{Dotiac::DTL::Filter::json_ascii_pretty};
	*{Dotiac::DTL::Filter::json}=\&json;
	*{Dotiac::DTL::Filter::json_ascii}=\&json_ascii;
	*{Dotiac::DTL::Filter::json_pretty}=\&json_pretty;
	*{Dotiac::DTL::Filter::json_ascii_pretty}=\&json_ascii_pretty;

}
sub unimport {
	*{Dotiac::DTL::Filter::json} = $oldjson;
	*{Dotiac::DTL::Filter::json_ascii} = $oldjson_ascii;
	*{Dotiac::DTL::Filter::json_pretty} = $oldjson_pretty;
	*{Dotiac::DTL::Filter::json_ascii_pretty} = $oldjson_ascii_pretty;
}

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

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

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

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

__END__