From 156e84427559f9dff77bff7c1398f78c1e18c6d9 Mon Sep 17 00:00:00 2001
From: cjfields <cjfields@bioperl.org>
Date: Wed, 30 Jan 2008 19:54:38 +0000
Subject: [PATCH] Add simple method to retrieve parameter settings

svn path=/bioperl-live/trunk/; revision=14459
---
 Bio/DB/EUtilities.pm | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/Bio/DB/EUtilities.pm b/Bio/DB/EUtilities.pm
index 518d175de..d5c90c6dd 100644
--- a/Bio/DB/EUtilities.pm
+++ b/Bio/DB/EUtilities.pm
@@ -302,7 +302,30 @@ sub available_parameters {
 
 sub get_parameters {
     my ($self, @args) = @_;
-    return $self->parameter_base->available_parameters(@args);
+    return $self->parameter_base->get_parameters(@args);
+}
+
+=head2 get_parameter_values
+
+ Title   : get_parameter_values
+ Usage   : @vals = $factory->get_parameter_value('id'); # always get array
+ Function: Returns the specific parameter values.
+ Returns : For consistency returns a list of values for this parameter.  If only
+           one is expected, use:
+           
+           ($val) = $factory->get_parameter_value('id');
+           
+ Args    : parameter expected
+
+=cut
+
+sub get_parameter_values {
+    my ($self, $p) = @_;
+    my %params = $self->parameter_base->get_parameters(-list => [$p]);
+    if (exists $params{$p}) {
+        return ref $params{$p} eq 'ARRAY' ? @{$params{$p}} : $params{$p};
+    }
+    return;
 }
 
 =head1 Bio::Tools::EUtilities-delegating methods
-- 
2.11.4.GIT