| Klasse :: Prototypen :: Mixin Klasse :: Prototyp :: Mixin Perl-Modul enthält Mixin-Unterstützung für Klasse :: Prototyped. |
Jetzt downloaden |
Klasse :: Prototypen :: Mixin Ranking & Zusammenfassung
- Lizenz:
- Perl Artistic License
- Name des Herausgebers:
- Terrence Brannon
- Website des Verlags:
- http://search.cpan.org/~tbone/
Klasse :: Prototypen :: Mixin Stichworte
Klasse :: Prototypen :: Mixin Beschreibung
Klasse :: Prototyped :: Mixin Perl-Modul enthält Mixin-Unterstützung für Klasse :: Prototyped. Klasse :: Prototyped :: MIXIN Perl-Modul enthält Mixin-Unterstützung für Klasse: sub Hallo {mein ($ self, $ altern) = @_; Zurück "Hallo World! Ich bin $ Alters Jahre alt"} Paket HellowerD :: Großbuchstaben; Verwenden Sie Base QW (Klasse :: Prototyped); __Package __-> reflect-> addslot ( => sub {my $ self = shift; mein $ ret = $ self-> reflect-> super ('hello', @_); UC $ ret} ); Paket hellowerd :: fett; Verwenden Sie Base QW (Klasse :: Prototyped); __Package __-> reflect-> addslot ( => sub {mein $ self = shift; mein $ ret = $ self-> reflect-> super ('hello', @_); " $ ret ";}); Paket HellowerD :: Italic; Verwenden Sie Base QW (Klasse :: Prototyped); __Package __-> reflect-> addslot ( => sub {my $ self = shift; mein $ ret = $ self-> reflect-> super ('hallo', @_); " $ ret ";}); # script.pl - Jetzt beginnt das Schlag mit der Verwendung von Klasse :: Prototyped :: Mixin QW (Mixin); Meine $ runtime = mixin ('helloworld' => 'hellowerd :: Großbuchstaben', 'Helloworld :: Italic'); Print $ Runtime-> Hallo (74); Hallo Welt! Ich bin 74 Jahre alt uage zwei: Hierarchie erstellen und in einer Klasse installieren :: Prototype Paketpaket Compiletime; Verwenden Sie Klasse: Prototyped :: Mixin QW (Mixin); MEIN $ UCLASS = MIXIN ('HELLELORD' => 'HELLELORD :: Großbuchstaben', 'HELLELORD :: Fettdruck'); __Package __-> reflect-> addslot ('*' => $ UCLASS); # script.pl Verwenden Sie Compiletime; drucken compiletime-> hallo (88); Hallo Welt! Ich bin 88 Jahre alt Anforderungen: · Perl
Klasse :: Prototypen :: Mixin Zugehörige Software