Changeset 220 for trunk/soft/ObsData/ObsData.pm

Timestamp:

04/09/06 03:08:46 (18 years ago)

Author:

nanardon

Message:

• add ObsData::get_sub_plugin()

File:

• trunk/soft/ObsData/ObsData.pm (modified) (1 diff)

trunk/soft/ObsData/ObsData.pm

@@ -150 +150 @@
 }
 
+=head2 get_sub_plugin
+
+Return code ref of plugintype for datatype
+
+=cut
+
+sub get_sub_plugin {
+    my ($self, $datatype, $plugintype) = @_;
+    if (exists($self->{plugin}{$datatype}{$plugintype})) {
+        return $self->{plugin}{$datatype}{$plugintype};
+    } else {
+        return undef;
+    }
+}
+
 =head2 logging($level, $message, ...)