Use Perl patterns ( this acrticle - Patterns in Perl will be useful for understanding of advantages of this method). For more detailes look through Perl Design Patterns TinyWiki

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);