Commit 8a9cf5e7 authored by Patrick Meidl's avatar Patrick Meidl
Browse files

added flush_supporting_features()

parent a0637cbe
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment