Added fetch_all_regulatory_features()

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;

modules/Bio/EnsEMBL/Transcript.pm

@@ -1959,6 +1959,26 @@ sub get_all_DAS_Features{
   return \%das_features;
 }
 
+=head2 fetch_all_regulatory_features
 
+  Arg [1]    : none
+  Example    : @features = $transcript->fetch_all_regulatory_features();
+  Description: Gets all the regulatory features associated with this transcript.
+               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) = @_;
+
+   my $rfa = $self->adaptor->db->get_RegulatoryFeatureAdaptor();
+
+   return $rfa->fetch_all_by_transcript($self);
+
+}
 
 1;

modules/Bio/EnsEMBL/Translation.pm

@@ -798,4 +798,26 @@ sub get_all_DAS_Features{
   return \%das_features;
 }
 
+=head2 fetch_all_regulatory_features
+
+  Arg [1]    : none
+  Example    : @features = $translation->fetch_all_regulatory_features();
+  Description: Gets all the regulatory features associated with this translation.
+               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) = @_;
+
+   my $rfa = $self->adaptor->db->get_RegulatoryFeatureAdaptor();
+
+   return $rfa->fetch_all_by_translation($self);
+
+}
+
 1;