Changeset 220

Timestamp:

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

Author:

nanardon

Message:

• add ObsData::get_sub_plugin()

Location:

trunk/soft/ObsData

Files:

• ObsData.pm (modified) (1 diff)
• t/O-02.t (modified) (2 diffs)

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, ...)
 

trunk/soft/ObsData/t/O-02.t

@@ -4 +4 @@
 use warnings;
 
-use Test::More tests => 20;
+use Test::More tests => 21;
 use File::Temp qw(tempdir);
 use POSIX qw(strftime);
@@ -39 +39 @@
 ok(eq_set([ $o->get_datadir('ohp', 'ozone') ], [ 'testdata/ohp/ozone', 'testdata/ohp' ]) , 'Can retrive data directory');
 ok(eq_set([ $o->list_datatype ], [ 'oxygene', 'ozone' ]), "can get data type");
-print STDERR join(" ", $o->list_datatype);
+
+ok(ref $o->get_sub_plugin('ozone', 'match_plugin') eq 'CODE', 'can get plugin code');
 
 $o = undef; # Explicit destroy