perl-Class-Data-Inheritable

Class::Data::Inheritable sert à créer des accesseurs/mutateurs pour des données de classe. C'est-à-dire, si vous voulez stocker quelque chose concernant votre classe dans son ensemble (plutôt que concernant un seul objet). Ces données sont alors héritées par vos sous-classes et peuvent être surchargées. Par exemple : Pere::Ubu->mk_classdata('Suitcase'); générera la méthode Suitcase() dans la classe Pere::Ubu. Cette nouvelle méthode peut être utilisée pour obtenir et définir un morceau de données de classe. Pere::Ubu->Suitcase('Red'); $suitcase = Pere::Ubu->Suitcase; La partie intéressante se produit lorsqu'une classe hérite de Pere::Ubu : package Raygun; use base qw(Pere::Ubu); $suitcase = Raygun->Suitcase; Raygun hérite ses données de classe Suitcase de Pere::Ubu. L'héritage des données de classe fonctionne de manière analogue à l'héritage des méthodes. Tant que Raygun ne « surcharge » pas ses données de classe héritées (en utilisant Suitcase() pour définir une nouvelle valeur), il continuera d'utiliser ce qui est défini dans Pere::Ubu et d'hériter des changements ultérieurs : Pere::Ubu->Suitcase('Blue'); Cependant, si Raygun décide de définir son propre Suitcase(), il a alors « surchargé » Pere::Ubu et est indépendant, tout comme s'il avait surchargé une méthode : Raygun->Suitcase('Orange'); Maintenant que Raygun a surchargé Pere::Ubu, les changements ultérieurs de Pere::Ubu n'affectent plus Raygun. Pere::Ubu->Suitcase('Samsonite');