| Ai :: freehal :: clase Soporte para crear clases estándar "Inside-out" |
Descargar ahora |
Ai :: freehal :: clase Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Tobias Schulz
- Sitio web del editor:
- http://search.cpan.org/~tschulz/
Ai :: freehal :: clase Etiquetas
Ai :: freehal :: clase Descripción
Soporte para crear clases estándar "Inside-out" AI :: FreeHal :: Class es un módulo PERL que ofrece soporte para crear clases estándar de "Inside-Out ".Synopsis paquete MyClass; Usa AI :: FreeHal :: Class; # Crear almacenamiento para atributos de objeto ... MI% NAME: ATTR; mi% de rango: attr; mi% snum: attr; mi% public_data: attr; # Manejar la inicialización de los objetos de esta clase ... Sub Build {My ($ Self, $ obj_id, $ arg_ref) = @_; $ nombre {$ obj_id} = check_name ($ arg_ref -> {nombre}); $ ranking {$ obj_id} = check_rank ($ arg_ref -> {rank}); $ snum {$ obj_id} = _gen_uniq_serial_num (); } # Manejar la limpieza de objetos de esta clase ... Sub demolish {My ($ yo, $ obj_id) = @_; _recycle_serial_num ($ snum {$ obj_id}); } # Manija Método desconocido Llamadas ... Sub Automethod {My ($ Self, $ obj_id, @other_args) = @_; # Devolver cualquier dato público ... Si (M / A obtenga _ (. *) /) {# Nombre del método pasado en $ _ mi $ get_what = $ 1; retorno sub {devuelva $ public_data {$ obj_id} {$ get_what}; }} Warn "No se puede llamar $ METHET_NAME ON", REF $ $, "OBJETO"; regreso; # La llamada se rechaza al no devolver un Sub Ref} Este módulo proporciona herramientas que ayudan a implementar la estructura de la clase de "Out Out Out Out Out" de una manera conveniente y estándar. Deportes del siguiente código y documentación de los derechos de autor de "Perl Best Practices" ( c) 2005 por O'Reilly Media, Inc. y reimpreso con permiso. Requisitos: · Perl
Ai :: freehal :: clase Software relacionado