Take a look at Class::Prototyped. Caveat, I have never actually used this module, but it seems like it may be applicable to your question.