From 66a36bc3a036033914125013d12c36e9feb7cd78 Mon Sep 17 00:00:00 2001
From: Glenn Proctor <gp1@sanger.ac.uk>
Date: Mon, 11 Apr 2005 09:20:19 +0000
Subject: [PATCH] .. and put it back on the head.
---
modules/Bio/EnsEMBL/Gene.pm | 25 +++++++++++++++++++++++++
1 file changed, 25 insertions(+)
diff --git a/modules/Bio/EnsEMBL/Gene.pm b/modules/Bio/EnsEMBL/Gene.pm
index 99c907091a..4e10fa7465 100755
--- a/modules/Bio/EnsEMBL/Gene.pm
+++ b/modules/Bio/EnsEMBL/Gene.pm
@@ -880,4 +880,29 @@ sub get_all_DAS_Features{
return \%das_features;
}
+
+=head2 fetch_all_regulatory_features
+
+ Arg [1] : If set, regulatory features on transcripts belonging to this gene
+ are returned as well.
+ Example : @features = $gene->fetch_all_regulatory_features(1);
+ Description: Gets all the regulatory features associated with a
+ particular gene, and (optionally) its transcripts.
+ Each feature only appears once.
+ Returntype : Listref of Bio::EnsEMBL::RegulatoryFeature
+ Exceptions : If arg is not of correct type.
+ Caller : ?
+
+=cut
+
+sub fetch_all_regulatory_features {
+
+ my ($self, $recursive) = @_;
+
+ my $rfa = $self->adaptor->db->get_RegulatoryFeatureAdaptor();
+
+ return $rfa->fetch_all_by_gene($self, $recursive);
+
+}
+
1;
--
GitLab