How did you define $self? Define it harder next time. *{$pkg . "::self"} = gensym() works just find for this sort of thing. You could also alias your caller's $self to some $self known to your module if you plan to instantiate it for the class. See INGY's code for examples of him doing this kind of wierdness.

*$tgt = \ $Class::self;
*$tgt = Symbol::gensym();
*$tgt = \ "a constant";
[download]