From 5c20313b1de16b1ed0101271132337b7b27d89de Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 19 Jan 2006 04:53:31 +0000
Subject: [PATCH 1/1] added lookup_class and lookup_hint methods to support
 param class instance checking

git-svn-id: svn://svn.open-ils.org/ILS/trunk@2752 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 OpenSRF/src/perlmods/JSON.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/OpenSRF/src/perlmods/JSON.pm b/OpenSRF/src/perlmods/JSON.pm
index 882b0247ec..95ecf6c8de 100644
--- a/OpenSRF/src/perlmods/JSON.pm
+++ b/OpenSRF/src/perlmods/JSON.pm
@@ -59,6 +59,18 @@ sub _JSON_regex {
 	return ($string,$1);
 }
 
+sub lookup_class {
+	my $self = shift;
+	my $hint = shift;
+	return $_class_map{hints}{$hint}{name}
+}
+
+sub lookup_hint {
+	my $self = shift;
+	my $class = shift;
+	return $_class_map{classes}{$class}{hint}
+}
+
 sub _json_hint_to_class {
 	my $type = shift;
 	my $hint = shift;
-- 
2.43.2