Commit eea7e78a authored by William McLaren's avatar William McLaren
Browse files

Added remove_indels method to allow hack in webcode

parent 99b07f81
......@@ -750,4 +750,25 @@ sub get_original_seq_region_position {
return ($self,$position);
}
=head2 remove_indels
Args : none
Example : $strainSlice->remove_indels();
Description : Removes insertions and deletions from the allele features
of this object
ReturnType : none
Exceptions : none
Caller : webteam
=cut
sub remove_indels {
my $self = shift;
my @new_afs = grep { $_->variation->var_class ne 'in-del' } @{$self->{'alleleFeatures'}};
$self->{'alleleFeatures'} = \@new_afs;
}
1;
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