Perl ist eine dynamische Sprache, die prototypische OOP auf der Grundlage von Hashes und Paketen unterstützt. Zum Erstellen eines Objekts wird normalerweise bless verwendet:
package Animal; sub new { my ($class, %args) = @_; return bless { %args }, $class; } sub speak { print "Ein Tier macht ein Geräusch "; } package Dog; use parent 'Animal'; # oder our @ISA = ('Animal') sub speak { print "Wuff! "; } my $dog = Dog->new(name => 'Rex'); $dog->speak; # Gibt aus: Wuff!
Hier erstellt der Konstruktor new einen Hash mit den Objektdaten und verknüpft ihn mit der Klasse. Methoden werden wie gewöhnliche Subroutinen deklariert. Vererbung ist über @ISA oder das Modul parent/base möglich. OOP in Perl ist flexibel, aber nicht strikt, was sowohl zusätzliche Möglichkeiten als auch Feinheiten eröffnet.
Wie kann man private Eigenschaften/Methoden eines Objekts in Perl am besten umsetzen, angesichts des Fehlens von
private/protected-Syntax?
Antwort: Es gibt keinen eingebauten Mechanismus, jedoch wird die Privatsphäre durch lexikalische Variablen außerhalb des Pakets oder durch Namenskonventionen (_private) erreicht. Zum Beispiel:
package Car; my $secret = 'hidden'; # privat für das Paket sub _private { ... } # Konvention: nicht von außen aufrufen
Dieser Ansatz schützt nicht vor Zugriff, wird jedoch als Standard angesehen.
Geschichte
In einem Projekt wurde ein Objekt definiert, das ein Array von Referenzen auf andere Objekte enthielt. Die Entwickler vergaßen, Methoden als $obj->method aufzurufen und riefen sie als method($obj) auf, was zu unerwarteten Ergebnissen führte, insbesondere bei Vererbung und Überschreibung von Methoden – die Klasse wurde falsch bestimmt und die Elternmethoden anstelle der Kindmethoden wurden aufgerufen.
Geschichte
Die Verwendung einer Paketvariablen anstelle einer lexikalischen Variablen zur Speicherung des Objektzustands führte dazu, dass eine Änderung des Zustands in allen Instanzen der Klasse reflected wurde, da die Daten gemeinsam und nicht individuell für das Objekt waren.
Geschichte
Die implizite Arbeit mit der Variablen @ISA für die Vererbung bei dynamischem Laden von Klassen führte in großen Projekten dazu, dass die Elternlisten nicht rechtzeitig aktualisiert wurden und das Programm unerwartet Methoden verlor oder eine falsche Hierarchie erhielt.