From c9e63d6aecc03472751a578d55eb1ad78add8706 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Sun, 9 Mar 2008 01:02:20 +0000
Subject: [PATCH] add JSON::XS-based true/false support

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1265 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Utils/JSON.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/perlmods/OpenSRF/Utils/JSON.pm b/src/perlmods/OpenSRF/Utils/JSON.pm
index f76b4ea..65853e4 100644
--- a/src/perlmods/OpenSRF/Utils/JSON.pm
+++ b/src/perlmods/OpenSRF/Utils/JSON.pm
@@ -6,6 +6,14 @@ my $parser = JSON::XS->new;
 $parser->ascii(1); # output \u escaped strings
 $parser->allow_nonref(1);
 
+sub true {
+    return $parser->true();
+}
+
+sub false {
+    return $parser->false();
+}
+
 sub register_class_hint {
 	my $class = shift;
 	my %args = @_;
-- 
2.43.2