From 8a9cf5e72498ad2f01dd98f75093f75b2c473f6e Mon Sep 17 00:00:00 2001
From: Patrick Meidl <pm2@sanger.ac.uk>
Date: Mon, 12 Mar 2007 16:23:58 +0000
Subject: [PATCH] added flush_supporting_features()
---
modules/Bio/EnsEMBL/Exon.pm | 18 ++++++++++++++++++
modules/Bio/EnsEMBL/Transcript.pm | 18 ++++++++++++++++++
2 files changed, 36 insertions(+)
diff --git a/modules/Bio/EnsEMBL/Exon.pm b/modules/Bio/EnsEMBL/Exon.pm
index aea62369c4..75e5915508 100755
--- a/modules/Bio/EnsEMBL/Exon.pm
+++ b/modules/Bio/EnsEMBL/Exon.pm
@@ -540,6 +540,24 @@ sub add_supporting_features {
}
+=head2 flush_supporting_features
+
+ Example : $exon->flush_supporting_features;
+ Description : Removes all supporting evidence from the exon.
+ Return type : (Empty) listref
+ Exceptions : none
+ Caller : general
+ Status : At Risk
+ : under development
+
+=cut
+
+sub flush_supporting_features {
+ my $self = shift;
+ $self->{'_supporting_evidence'} = [];
+}
+
+
=head2 get_all_supporting_features
Arg [1] : none
diff --git a/modules/Bio/EnsEMBL/Transcript.pm b/modules/Bio/EnsEMBL/Transcript.pm
index 95914ed11c..1120df9a07 100755
--- a/modules/Bio/EnsEMBL/Transcript.pm
+++ b/modules/Bio/EnsEMBL/Transcript.pm
@@ -346,6 +346,24 @@ sub add_supporting_features {
}
+=head2 flush_supporting_features
+
+ Example : $transcript->flush_supporting_features;
+ Description : Removes all supporting evidence from the transcript.
+ Return type : (Empty) listref
+ Exceptions : none
+ Caller : general
+ Status : At Risk
+ : under development
+
+=cut
+
+sub flush_supporting_features {
+ my $self = shift;
+ $self->{'_supporting_evidence'} = [];
+}
+
+
=head2 external_db
Arg [1] : (optional) String - name of external db to set
--
GitLab