my $length = shift;
  return ($length >= LONG);
}

#
# converts a length to its status code SHORT, MEDIUM or LONG
#

  my $length = shift;
  return ($length >= MEDIUM) && ($length < LONG);
}

#
# returns true if a given length is considered to be LONG
#

  my $length = shift;
  return $length < MEDIUM;
}

#
# returns true if a given length is considered to be MEDIUM
#

  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;