Clase :: accessor Clase :: accessor es una herramienta de generación de accesorios automatizada.
Descargar ahora

Clase :: accessor Clasificación y resumen

Clase :: accessor Etiquetas

Módulo perl perla generador accesor clase de accesorios accessor c

Clase :: accessor Descripción

Clase :: accessor es una herramienta de generación de accesorios automatizada. Clase :: accessor es una herramienta de generación de accesorios automatizada. Paquete de HSYNOPSIS Empleado; usar la base QW (Clase :: ACCESORIO); Empleado-> mk_accessors (QW (nombre de salario de rol)); # Mientras tanto, en un pedazo de código cercano! # Clase :: El accesorio proporciona nuevo (). My $ MP = FOO-> NUEVO ({NOMBRE => "MARTY", ROL => "JAPH"}); My $ trabajo = $ mp-> rol; # obtiene $ mp -> {rol} $ mp-> salario (400000); # sets $ MP -> {salario} = 400000 (deseo) # como mi @info = @ {$ mp} {qw (rol de nombre)} my @info = $ mp-> Obten (QW (Nombre Rol)); # $ $ -> {salario} = 400000 $ MP-> Conjunto ('Salario', 400000); Este módulo genera automáticamente accessores / mutadores para su clase. La mayoría de las veces, los accesores de escritura son un ejercicio en el corte y pegado. Por lo general, terminas con una serie de métodos como este: Subname {My $ Self = Shift; if (@_) {$ yo-> {nombre} = $ _ ; } Devuelve $ Self -> {nombre}; } Sub salario {My $ Self = Shift; if (@_) {$ yo-> {salario} = $ _ ; } devuelve $ yo-> {salario}; } #, etc. Uno para cada pieza de datos en su objeto. Mientras que algunos serán únicos, haciendo cheques de valor y trucos de almacenamiento especiales, la mayoría simplemente serán ejercicios en repetición. No solo es un estilo malo tener un montón de código repetitivo, sino que también es simplemente perezoso, que es la verdadera tragedia. Si realiza su módulo una subclase de clase :: accessor y declare sus campos de accesorios con MK_ACCESORS (), entonces ¡Se encontrará con un conjunto de accesorios generados automáticamente que incluso pueden ser personalizados! La configuración básica es muy simple: paquete My :: Class; usar la base QW (Clase :: ACCESORIO); Mi :: clase-> mk_accessors (QW (Foo Bar Car); hecho. Mi clase :: Class ahora tiene accesos de Foo (), bar () y automóvil () definidos. Requisitos: · Perl

Clase :: accessor Software relacionado