perl Object-Enum Object::Enum