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