From 5f0644b089cd7d1ea69a0c1241f9865ea6a66013 Mon Sep 17 00:00:00 2001 From: Kieron Taylor <ktaylor@ebi.ac.uk> Date: Wed, 8 Jun 2011 13:27:28 +0000 Subject: [PATCH] POD fix for method get_all_DAS_Features --- modules/Bio/EnsEMBL/Slice.pm | 25 ++++++++++++------------- 1 file changed, 12 insertions(+), 13 deletions(-) diff --git a/modules/Bio/EnsEMBL/Slice.pm b/modules/Bio/EnsEMBL/Slice.pm index 125b9451c1..73dcafa34c 100644 --- a/modules/Bio/EnsEMBL/Slice.pm +++ b/modules/Bio/EnsEMBL/Slice.pm @@ -2994,6 +2994,18 @@ sub get_all_DASFactories { return [ $self->adaptor()->db()->_each_DASFeatureFactory ]; } +sub get_all_DASFeatures_dsn { + my ($self, $source_type, $dsn) = @_; + + if(!$self->adaptor()) { + warning("Cannot retrieve features without attached adaptor"); + return []; + } + my @X = grep { $_->adaptor->dsn eq $dsn } $self->adaptor()->db()->_each_DASFeatureFactory; + + return [ $X[0]->fetch_all_Features( $self, $source_type ) ]; +} + =head2 get_all_DASFeatures Arg [1] : none @@ -3009,19 +3021,6 @@ sub get_all_DASFactories { Status : Stable =cut - -sub get_all_DASFeatures_dsn { - my ($self, $source_type, $dsn) = @_; - - if(!$self->adaptor()) { - warning("Cannot retrieve features without attached adaptor"); - return []; - } - my @X = grep { $_->adaptor->dsn eq $dsn } $self->adaptor()->db()->_each_DASFeatureFactory; - - return [ $X[0]->fetch_all_Features( $self, $source_type ) ]; -} - sub get_all_DAS_Features{ my ($self) = @_; -- GitLab