| Objeto :: Inerout Objeto :: Inerout es un módulo integral de soporte de objetos de entrada de entrada. |
Descargar ahora |
Objeto :: Inerout Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Jerry D. Hedden
- Sitio web del editor:
- http://search.cpan.org/~jdhedden/
Objeto :: Inerout Etiquetas
Objeto :: Inerout Descripción
Objeto :: Insegurout es un módulo completo de soporte de objetos de entrada de entrada. Objeto :: ANUALOUT es un módulo completo de soporte de objetos de entrada. Paquete de HSYNOPSIS MI :: Clase; {Use objeto :: INETROUT; # CAMPO NUMÉRICO # con acceso combinado + SET + Set Accessor My @Data: Campo: Tipo (numérico): accesor (datos); # Toma 'entrada' (o 'entrada', etc.) Como parámetro obligatorio para -> Nuevo () My% init_args: initargs = ('entrada' => {'regex' => qr / ^ entrada $ / i, 'Obligatorio' => 1, 'tipo' => 'numérico',},); # Manejar argumentos específicos de la clase como parte de -> nuevo () sub init: init {my ($ yo, $ args) = @_; # Poner el parámetro 'Entrada' en el campo 'Datos' $ Set-> Set (@Data, $ args -> {'entrada'}); }} Paquete My :: Class :: Sub; {Use Object :: Enideout QW (mi :: Clase); # Lista de campo # con los accesorios estándar 'get_x' y 'set_x' # toma 'información' como parámetro de lista opcional a -> Nuevo () valor # agregado automáticamente a @info Array # por defecto a my @info: CAMPO: TIPO (LISTA): ESTÁNDAR (INFO): ARG ('Nombre' => 'Info', 'predeterminado' => 'vacío'); } PAQUETE FOO; {Use objeto :: INETROUT; # Campo que contiene My :: Class Objects # con accesorios combinados # más Procesamiento automático de parámetros en la creación de objetos My @foo: Campo: Tipo (MI :: Clase): Todos (Foo); } Paquete principal; My $ obj = mi :: clase :: Sub-> Nuevo ('Entrada' => 69); My $ info = $ obj-> get_info (); # Mis datos $ = $ obj-> datos (); # 69 $ obj-> datos (42); $ datos = $ obj-> datos (); # 42 $ obj = mi :: clase :: Sub-> Nuevo ('Info' => 'Ayuda', 'Entrada' => 86); $ datos = $ obj-> datos (); # 86 $ info = $ obj-> get_info (); # $ obj-> set_info (qw (foo bar baz)); $ info = $ obj-> get_info (); # mi $ foo_obj = foo-> nuevo ('foo' => $ obj); $ FOO_OBJ-> FOO () -> DATOS (); # 86Requeamientos: · Requisitos de Perl: · Perl
Objeto :: Inerout Software relacionado