nicht angemeldet
Ich lese deine konkrete Aufgabenstellung und erkenne abstrakt: dies ist Polymorphismus, aber du willst gar keine Vererbung, hier geht es um Roles. Beschreibung des Konzepts: http://my.safaribooksonline.com/059600737X/perl6ess2-CHP-6-SECT-3
Warum keine Vererbung? Der theoretische Grundlage wird entbehrt: es gibt nämlich keine »is-a«-Verbindung zwischen den Klassen, sondern »does-a«.
Gleichwohl Struppi schon eine Lösung auf Basis von Vererbung lieferte: wenn dir korrektes Klassendesign am Herzen liegt, spiele ein wenig mit Roles herum. Die Implementation in Pugs und Rakudo ist vollständig, für Perl5 gibt es die Module Moose::Role bzw. Mouse::Role (wie immer erhältlich auf CPAN).
Live-Hilfe, gerne zu konzeptionellen und auch dämlichen Fragen, gibt es auf irc.perl.org im Kanal #moose (englisch).
Struppi