If that were me, I'd use roles instead of inheritance. (Class::Roles).
In reply to Re^2: has-a in Perl by chromatic in thread has-a in Perl by skazat