Clase :: Dot :: Tipo Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Ask Solem
- Sitio web del editor:
- http://search.cpan.org/~asksh/Modwheel-0.3.3/lib/Modwheel.pm
Clase :: Dot :: Tipo Etiquetas
Clase :: Dot :: Tipo Descripción
Clase base para restricciones de tipo Clase :: Dot :: Type es una clase de Base Perl para la restricción de tipo.synopsis # Probablemente desee obtener esta información de __Meta__ # Attriute de su instancia. paquete myclass; Usar clase :: DOT2; propiedad 'nombre' => (ISA => 'STR', Predeterminado => 'Mr. Fox Quick Brown'); Sub play_with_attribute_Meta {My ($ Self) = @_; My $ Name_Meta = $ Self -> __ Meta __ ('Nombre'); # Obtenga el nombre del tipo para el nombre del atributo. My $ Type = $ Name_Meta-> Tipo; # Averigüe qué tipo de accesor es este. (Predeterminado: sobretrosque) My $ accessor_Type = $ name_meta-> accessor_type; # Obtenga una subrutina Reflo a la verificación de restricción para este tipo. My $ check_constraint = $ name_meta-> restricción; MY $ CRENTE_VALUE = $ SELF-> Nombre; Si (! $ check_constraint -> ($ current_value)) {croak "el valor del nombre no pasa el cheque de restricción por $ tipo"} # Obtenga el nombre de Getter y el programa. My $ getter_name = $ name_meta-> getter_name; My $ setter_name = $ name_meta-> setter_name; # Obtenga el valor llamando nombre (): $ CRENTE_VALUE = $ Self -> $ Getter_Name; # Establecer el valor llamando a Set_Name ($ valor) $ Self -> $ setter_name ('nuevo valor'); # Obtenga la lista de padres para este tipo. mi @isa_for_type = $ meta-> linear_isa; # Obtenga la opción de privacidad para este tipo (Predeterminado: Público (RW)). My $ Privacy_Type = $ Meta-> Privacidad; # Obtenga las reglas de privacidad para este tipo de privacidad. My $ Privacy_Rules = $ Meta-> Privacy_Rule; Imprimir $ privacy_rules -> {has_getter}; Imprimir $ privacy_rules -> {has_setter}; regreso; } Requisitos: · Perl
Clase :: Dot :: Tipo Software relacionado