added lookup_class and lookup_hint methods to support param class instance checking
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 19 Jan 2006 04:53:31 +0000 (04:53 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 19 Jan 2006 04:53:31 +0000 (04:53 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2752 dcc99617-32d9-48b4-a31d-7c20da2025e4

OpenSRF/src/perlmods/JSON.pm

index 882b024..95ecf6c 100644 (file)
@@ -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;