perl-Class-Data-Inheritable

Class::Data::Inheritable dient zum Erstellen von Accessor/Mutator-Methoden für Klassendaten. Das heißt, wenn Sie etwas über Ihre Klasse als Ganzes speichern möchten (statt über ein einzelnes Objekt). Diese Daten werden dann von Ihren Unterklassen geerbt und können überschrieben werden. Zum Beispiel: Pere::Ubu->mk_classdata('Suitcase'); erzeugt die Methode Suitcase() in der Klasse Pere::Ubu. Diese neue Methode kann verwendet werden, um ein Stück Klassendaten zu lesen und zu setzen. Pere::Ubu->Suitcase('Red'); $suitcase = Pere::Ubu->Suitcase; Der interessante Teil geschieht, wenn eine Klasse von Pere::Ubu erbt: package Raygun; use base qw(Pere::Ubu); $suitcase = Raygun->Suitcase; Raygun erbt seine Suitcase-Klassendaten von Pere::Ubu. Die Vererbung von Klassendaten funktioniert analog zur Methodenvererbung. Solange Raygun seine geerbten Klassendaten nicht „überschreibt“ (indem Suitcase() verwendet wird, um einen neuen Wert zu setzen), verwendet es weiterhin, was in Pere::Ubu gesetzt ist, und erbt weitere Änderungen: Pere::Ubu->Suitcase('Blue'); Sollte Raygun jedoch beschließen, sein eigenes Suitcase() zu setzen, hat es nun Pere::Ubu „überschrieben“ und ist auf sich allein gestellt, genau wie wenn es eine Methode überschrieben hätte: Raygun->Suitcase('Orange'); Nachdem Raygun Pere::Ubu überschrieben hat, wirken weitere Änderungen von Pere::Ubu nicht mehr auf Raygun. Pere::Ubu->Suitcase('Samsonite');