Puff Perl-Erweiterung, die stärkere Tipps, Verkapselung und Erbschaft liefert
Jetzt downloaden

Puff Ranking & Zusammenfassung

Puff Stichworte

Tippen Verkapselung Nachlass stärkere Tipping. stärkere Verkapselung stärkere Vererbung

Puff Beschreibung

Perl-Erweiterung, die stärkere Tipps, Verkapselung und Erbschaft bietet Poof ist ein Perl-Modul, das versucht, Perl ein formaleres OO-Implementierungsrahmen zu geben. Bereitstellung einer Unterscheidung zwischen den Klasseneigenschaften und -methoden mit drei Zugangsstufen (öffentlich, geschützt und privat). Es schränkt auch die Methode ein, die in Kindern klassen, auf diejenigen Eigenschaften oder Methoden, die als "virtuell" gekennzeichnet sind, in diesem Fall, in dem eine Kinderklasse die Methode außer dem eigenen Kontext überschreiben kann. Soweit das Elternteil betrifft, verhält sich die überschüssige Methode oder das Eigentum noch im erwarteten Weg von seiner Perspektive. MEYPREYBOUTPERL6: Methode Öffentlich {mein ($ obj) = @_; Rückkehr "Kerl, es ist total röhrenförmig!"; } Wenn jedoch die öffentliche Methode "realpublicopinionabouterl6" aufgerufen wird, dann würde es wiederum die Methode "MeryPabouterl6" anrufen, da sie in der MyClass definiert wurde, da sich die Perspektive der Eltern nie geändert hat. Ich glaube, das ist entscheidendes Verhalten und es geht zusammen, wie die OO-Prinzipien in anderen beliebten Sprachen wie Java, C # und C ++ implementiert wurden. Synopsis-Paket Myclass; Verwenden Sie die Basis QW (Poof); # Klasseneigenschaften Subname: Eigenschaft Öffentlich {{'Typ' => 'string', 'default' => '', 'regex' => qr / ^. {0,128} $ /,}} Unter Alter: Eigentum öffentlich { {'Typ' => 'Integer', 'Default' => 0, 'min' => 0, 'max' => 120,}} Sub heiratsstatus: Eigenschaft Private {{'Typ' => 'string' ',' Standard '=>' Single ',' regex '=> qr / ^ (? Single | verheiratet) $ /' ifilter '=> sub {My $ Val = Shift; LC $ Val zurückgeben; }}} Sub Ehepartner: Eigenschaft Private {{'Typ' => 'String', 'Standard' => 'Single', 'Regex' => qr / ^. {0,64} $ /, 'ifilter' => SUB {MY $ VAL = Schicht; LC $ Val zurückgeben; }}} SUBS SUBE STYLEBAUTPERL6: Eigenschaft geschützt {{'type' => 'string', 'default' => 'Ich bin so besorgt, ich schlafe nachts nicht.' }} # Klassenmethoden Sub MarriRitStatus: Methode Public {My ($ obj, $ Requester) = @_; if ($ Requester EQ 'NEFARIOUS SCHRANCHER') {RETURN 'NON IHRES GESCHÄFTS'; } else {return $ obj -> {'marritalstatus'}}}}}}}}} sub getfallrid: methode public {my ($ obj, $ new_spouse) = @_; $ obj -> {'eigne'} = $ new_spouse; if ($ obj-> prohrors) {meine $ fehler = $ obj-> pgeterrors; Wenn (existiert $ fehler -> {'eigne'}) {Die "Probleme" ist der MURRE aus !! $ Fehler -> {'Ehepartner'} "; zurücksenden 0;}} else {$ obj -> {'marritalstatus'} = 'verheiratet'; zurück 1;}} SubmessungAppouterl6: Methode Public Virtual {My ($ obj) = @_; Rückkehr" Oh, großartig, freuen uns wirklich darauf. Es ist fast hier :) ";} sub realpublicopinionaboutperl6: methode public {my ($ obj) = @_; Rendite $ obj-> styleabouterl6;} Anforderungen: · Perl.

Puff Zugehörige Software