From 351b35dbbb54dcaa6e174fcdb0ccdc001cc9e698 Mon Sep 17 00:00:00 2001
From: Graham McVicker <mcvicker@sanger.ac.uk>
Date: Fri, 15 Aug 2003 14:59:25 +0000
Subject: [PATCH] flush internal sequence cache when exon coordinates are
altered
---
modules/Bio/EnsEMBL/Exon.pm | 86 +++++++++++++++++++++++++++++++++++++
1 file changed, 86 insertions(+)
diff --git a/modules/Bio/EnsEMBL/Exon.pm b/modules/Bio/EnsEMBL/Exon.pm
index bfc140c65b..0e9659949d 100755
--- a/modules/Bio/EnsEMBL/Exon.pm
+++ b/modules/Bio/EnsEMBL/Exon.pm
@@ -862,6 +862,92 @@ sub find_supporting_evidence {
+
+=head2 start
+
+ Arg [1] : int $start (optional)
+ Example : $start = $exon->start();
+ Description: Getter/Setter for the start of this exon. The superclass
+ implmentation is overridden to flush the internal sequence
+ cache if this value is altered
+ Returntype : int
+ Exceptions : none
+ Caller : general
+
+=cut
+
+sub start {
+ my $self = shift;
+ #if an arg was provided, flush the internal sequence cache
+ delete $self->{'_seq_cache'} if(@_);
+ return $self->SUPER::start(@_);
+}
+
+
+=head2 end
+
+ Arg [1] : int $end (optional)
+ Example : $end = $exon->end();
+ Description: Getter/Setter for the end of this exon. The superclass
+ implmentation is overridden to flush the internal sequence
+ cache if this value is altered
+ Returntype : int
+ Exceptions : none
+ Caller : general
+
+=cut
+
+sub end {
+ my $self = shift;
+ #if an arg was provided, flush the internal sequence cache
+ delete $self->{'_seq_cache'} if(@_);
+ return $self->SUPER::end(@_);
+}
+
+
+=head2 strand
+
+ Arg [1] : int $strand (optional)
+ Example : $start = $exon->strand();
+ Description: Getter/Setter for the strand of this exon. The superclass
+ implmentation is overridden to flush the internal sequence
+ cache if this value is altered
+ Returntype : int
+ Exceptions : none
+ Caller : general
+
+=cut
+
+sub strand {
+ my $self = shift;
+ #if an arg was provided, flush the internal sequence cache
+ delete $self->{'_seq_cache'} if(@_);
+ return $self->SUPER::strand(@_);
+}
+
+=head2 contig
+
+ Arg [1] : Bio::EnsEMBL::Slice or Bio::EnsEMBL::RawContig (optional)
+ Example : $slice = $exon->contig();
+ Description: Getter/Setter for the contig of this exon. The superclass
+ implmentation is overridden to flush the internal sequence
+ cache if this value is altered
+ Returntype : int
+ Exceptions : none
+ Caller : general
+
+=cut
+
+sub contig {
+ my $self = shift;
+ #if an arg was provided, flush the internal sequence cache
+ delete $self->{'_seq_cache'} if(@_);
+ return $self->SUPER::contig(@_);
+}
+
+
+
+
=head2 created
Title : created
--
GitLab