Quote

In "Object Oriented Perl" aus dem Jahr 2000 steht dazu folgendes:
"..., it's important to realize that inheritance in Perl is merely a way of specifiying where to look for a method and nothing else. There is no direct inheritance of attribute - unless you arrange for it - nor any hierarchical calling of constructors or destructors - unles you explicitly write those methods that way..."

Grundsätzlich gesehen bietet dir Pure Perl etwas wie Attribute nicht an. So wie im Text erwähnt werden Methoden vererbt das war es.

Wenn du eine Klasse X hast und du hast eine Klasse Y die von X ableitet, dann kannst du in Y einen eigenen Konstruktor bauen. Es wird aber nicht automatisch der Konstruktor von X aufgerufen, weder werden irgendwelche Initialisierungen die X gemacht hat automatisch vorgenommen. Du musst also alles selber manuell Programmieren, und auch beim Programmieren darauf achten das du deine Klassen entsprechend offen hälst.

In der Regel bedeutet dies, das du z.B. einen Konstruktor "new" hast und eine weitere Methode z.B. "init()" damit eine vererbte Klasse die init() Methode der übergeordneten Klasse aufrufen kann, und so deine Klasse Y auch die Initialisierungen vornehmen kann die X gemacht hat.

Automatisch passiert es also nicht, du musst den großteil selber Programmieren. Aber hier würde sich z.B. z.B. Moose empfehlen. Ein OOP Framework in Perl das dir all dies abnimmt, und du soetwas nicht mehr manuell machen musst.

Bei Moose kannst du dann auch wirklich Attribute definieren und deine verbte Klasse kennt automatisch die Attribute des Parents. Weiterhin werden Initialisierungen etc. automatisch für dich in der Korrekten Reihenfolge etc. aufgerufen.

Der Gebrauch von Moose empfiehlt sich schon sehr.