Enganche:: PrePostCall es un módulo Perl que puede añadir acciones antes y después de una rutina.

SINOPSIS

requiera 5.000;
use el Gancho:: PrePostCall;

intento de suscripción {
imprima STDERR "en el intento: _n";
_;
}

PrePostCall-> nuevo (
intente,
suscripción {
imprima STDERR "pre: _n";
# trate el _ contenido... si usted quiere
_; # define los argumentos de intento
},
suscripción {
imprima STDERR "poste: _n";
# trate el _ contenido... si usted quiere
_; # define lo que el intento devuelve
}
);
imprima el intento (10), "n";

nuevo () crea un nuevo objeto del Gancho:: PrePostCall clase. Los argumentos del nuevo método son:

1. el nombre de la rutina primaria usted quiere "sobrecargar",
2. una rutina anónima para llamar antes de la rutina primaria,
3. una rutina anonumous para llamar después de la rutina primaria.

Si el nombre de la subrutina primaria no tiene un prefijo de paquete explícito, se supone que esto sea el nombre de una subrutina en el paquete corriente del visitante del nuevo () método.

Pre la rutina actúa como un filtro de los argumentos rutinarios primarios. La rutina postal actúa como un filtro de que las devoluciones primarias.

nuevo () puede estar usado como una clase o un método de objeto. Cuando usado como un método de objeto la definición sacada es construida de la definición inicial de la rutina primaria.

sacado () Devoluciones la rutina sobrecargada.

pre () Devoluciones o juego pre parte de acción.

poste () Devoluciones o juego la parte de acción postal.

primario () Devoluciones la rutina primaria.

restaure () Rasgó de nuevo la definición inicial de la rutina primaria.