Raw content of Length
<![CDATA[use strict;
use warnings;
#
# Utility package with some functions that can be used to categorise lengths
#
package Length;
use StatMsg;
use Bio::EnsEMBL::Utils::Exception qw(throw);
use constant MEDIUM => 9; # 8 or less is short
use constant LONG => 49; # 9-48 is medium, >48 is long
#
# returns true if a given length is considered to be SHORT
#
sub is_short {
my $length = shift;
return $length < MEDIUM;
}
#
# returns true if a given length is considered to be MEDIUM
#
sub is_medium {
my $length = shift;
return ($length >= MEDIUM) && ($length < LONG);
}
#
# returns true if a given length is considered to be LONG
#
sub is_long {
my $length = shift;
return ($length >= LONG);
}
#
# converts a length to its status code SHORT, MEDIUM or LONG
#
sub length2code {
my $length = shift;
return StatMsg::SHORT if(is_short($length));
return StatMsg::MEDIUM if(is_medium($length));
return StatMsg::LONG if(is_long($length));
throw("Could not resolve length code for length=$length");
}
1;
]]>