Just a matter of idle curiosity, but may I ask why you use
    sub TME_HOVER() {1}
instead of the constant module, e.g.,
    use constant TME_HOVER => 1;
or
    use constant {
        TME_HOVER     => 1,
        TME_LEAVE     => 2,
        HOVER_DEFAULT => 0xFFFFFFFF,
        };
or perhaps better yet, the Readonly module?