[Opensrf-commits] r1265 - trunk/src/perlmods/OpenSRF/Utils

[svn at svn.open-ils.org]

Author: miker
Date: 2008-03-08 20:02:20 -0500 (Sat, 08 Mar 2008)
New Revision: 1265

Modified:
   trunk/src/perlmods/OpenSRF/Utils/JSON.pm
Log:
add JSON::XS-based true/false support

Modified: trunk/src/perlmods/OpenSRF/Utils/JSON.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/Utils/JSON.pm	2008-03-07 22:33:48 UTC (rev 1264)
+++ trunk/src/perlmods/OpenSRF/Utils/JSON.pm	2008-03-09 01:02:20 UTC (rev 1265)
@@ -6,6 +6,14 @@
 $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 = @_;