From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Sun, 9 Mar 2008 01:02:20 +0000 (+0000)
Subject: add JSON::XS-based true/false support
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=c9e63d6aecc03472751a578d55eb1ad78add8706;p=working%2FOpenSRF.git

add JSON::XS-based true/false support

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1265 9efc2488-bf62-4759-914b-345cdb29e865
---

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 = @_;