Clase :: prototipado :: Mixin Clase :: Prototyped :: Mixin PERL Módulo contiene Soporte de Mixin para Clase :: Prototyped.
Descargar ahora

Clase :: prototipado :: Mixin Clasificación y resumen

Clase :: prototipado :: Mixin Etiquetas

Módulo perl Soporte de mezcla Mezcla

Clase :: prototipado :: Mixin Descripción

Clase :: Prototyped :: Mixin PERL Módulo contiene Soporte de Mixin para Clase :: Prototyped. Clase :: Prototyped :: Mixin PERL Módulo contiene Soporte de Mixin para Clase :: prototyped.SynopsUsage One: Levanta una clase y tírala en un paquete escalar HelloWorld; Sub Hello {My ($ Self, $ Edad) = @_; Regreso "¡Hola mundo! Estoy $ AÑOS AÑOS"} Paquete HelloWorld :: Mayúsculas; usar la base QW (Clase :: prototipada); __Package __-> Reflejar-> AddSlot ( => Sub {My $. ) Paquete HelloWorld :: Bold; usar la base QW (Clase :: prototipada); __Package __-> Reflejar-> AddSlot ( => Sub {My $ Self = Shift; My $ Ret = $ Self-> Reflexione-> Super ('Hello', @_); "B> $ DER ";}); Paquete HelloWorld :: italic; usar la base QW (Clase :: prototipada); __Package __-> Reflejar-> AddSlot ( => Sub {My $ Self = Shift; My $ Ret = $ Self-> Reflexione-> Super ('Hello', @_); "I> $ DER ";}); # script.pl - ahora el azoteo comienza a usar la clase :: prototyped :: Mixin QW (Mixin); My $ RUNTETE = Mixin ('Helloworld' => 'HelloWorld :: mayúsculas', 'HelloWorld :: italic'); Imprimir $ Runtime-> Hello (74); Hola mundo! Tengo 74 años Usage Dos: crea jerarquía e instale en una clase :: Paquete de paquete prototipado Compiletime; Clase de uso :: prototipado :: Mixin QW (Mixin); My $ UCLASS = Mixin ('Helloworld' => 'HelloWorld :: Mayorcase', 'HelloWorld :: Bold'); __Paquetar __-> Reflejar-> AddSlot ('*' => $ UCLASS); # script.pl usa compiletime; Imprimir compileTime-> Hello (88); ¡Hola mundo! Tengo 88 años de edad Requisitos: · Perl

Clase :: prototipado :: Mixin Software relacionado