Devel :: gancho Mensaje alrededor con BOOM / Check / init / inink Blocks
Descargar ahora

Devel :: gancho Clasificación y resumen

Devel :: gancho Etiquetas

cheque COMENZAR en eso Iniciar bloques Comprobar bloques Bloques de init

Devel :: gancho Descripción

Mierre alrededor con empezado / cheque / init / end bloques Perl mantiene las matrices de subrutinas que se ejecutan al principio y al final de un programa de PERL en ejecución y sus unidades de programa. Estas subrutinas corresponden a los bloques de código especial: comienzan, sinitcheck, check, init y final. (Consulte los detalles en "Comenzar, UNITCHECK, Check, init and Fin" en Perlmod). Este módulo proporciona capacidades limitadas para manipular estas matrizes. Las matrices pertenecen a los internos de Perl que no se supone que debe ver. Las entradas en estas matrices consumidas por el intérprete, ya que entra en distintas fases de compilación, desencadenadas por declaraciones como Requerir, Usar, Do, Eval, etc. para jugar lo más seguras posible, las operaciones únicas permitidas deben agregar entradas al inicio y a El final de estas matrices. # Agregar códigos ganchos al inicio de Array Devel :: Hook-> UNSHIPT_ _hook (@blocks); # Agregar código ganchos al final de matry devel :: gook-> push_ _hook (@blocks); donde es uno de: comience, sinitcheck, cheque, init o final. Los ganchos se ejecutan primero Si están al comienzo de la matriz y duran si están al final. Observe que la naturaleza FIFO o LIFO de los bloques de acuerdo con su orden de apariencia textual en la fuente de Perl no importa aquí. Por ejemplo, comience, Initcheck e Init son los bloques FIFO (FIRST IN, FIRST OUT), mientras que el cheque y el final son LIFO (última vez, primero en salir). Pero el intérprete de Perl y el usuario de este módulo inserta bloques al inicio de las matrices si deben ejecutar anteriormente y al final si se deben ejecutar más tarde, con un tratamiento homogéneo con respecto a las matriz de bloques.Synopsis. Uso :: Gancho (); Init {imprimir "init # 2 \ n"; } Comienza {devel :: gook-> push_init_hook (sub {impresión "init # 3 (gancho) \ n"}); Devel :: Hook-> UNSHIPT_INIT_HOOK (SUB {impresión "init # 1 (gancho) \ n"}); } Imprimir "Runtime \ N"; la salida será: init # 1 (gook) init # 2 init # 3 (gook) Requisitos de tiempo de ejecución: · Perl

Devel :: gancho Software relacionado