Commit 7c5f39a4 authored by Andreas Kusalananda Kähäri's avatar Andreas Kusalananda Kähäri
Browse files

Re-introduce some symbolic constants.

_remap() is a method, not a subroutine.

For now, throw in _remap() if it is expected to actually do something.
parent 07128134
......@@ -8,8 +8,23 @@ use warnings;
use Bio::EnsEMBL::Utils::Argument ('rearrange');
use Bio::EnsEMBL::Utils::Exception ('throw');
use constant { FEATURE_DBID => 0,
FEATURE_SEQREGIONID => 1,
FEATURE_START => 2,
FEATURE_END => 3,
FEATURE_STRAND => 4 };
sub _remap {
my ( $features, $mapper, $slice ) = @_;
my ( $this, $features, $mapper, $slice ) = @_;
if ( scalar( @{$features} ) > 0 ) {
if ( $slice->get_seq_region_id() !=
$features->[0][FEATURE_SEQREGIONID] )
{
throw( '_remap() in Bio::EnsEMBL::Collection '
. 'was unexpectedly expected to be intelligent' );
}
}
return $features;
}
......
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