DEVEL :: Hook. bagunça com os blocos iniciais / cheque / init / final
Baixe Agora

DEVEL :: Hook. Classificação e resumo

DEVEL :: Hook. Tag

Verifica COMEÇAR iniciar Begin blocks. CONFIRA blocos Blocos de init.

DEVEL :: Hook. Descrição

Bagunça com os blocos iniciais / cheque / init / final O Perl mantém matrizes de sub-rotinas que são executadas no início e no final de um programa Perl em execução e suas unidades de programa. Essas sub-rotinas correspondem aos blocos de código especiais: Begin, Unitcheck, Verifique, init e termine. (Veja os detalhes em "Begin, Unitcheck, verifique, init e end" in Perlmod.) Este módulo fornece recursos limitados para manipular esses arrays.Such arrays pertencem aos internos do Perl que você não deveria ver. As inscrições nessas matrizes são consumidas pelo intérprete, pois entra em fases de compilação distintas, desencadeadas por declarações como exigir, usar, eval, etc. para jogar o mais seguro possível, as únicas operações permitidas são adicionar entradas ao início e o fim desses arrays. # Adicionar ganchos de código ao início de Array Devel :: Hook-> Unshift_ _hook (@blocks); # add code ganchos ao final do Array Devel :: Hook-> push_ _hook (@blocks); onde é um dos: começar, unitcheck, verifique, init ou end. Os ganchos são executados primeiro Se eles estão no início da matriz e por último se estiverem no final. Observe que a natureza FIFO ou LIFO dos blocos de acordo com sua ordem textual de aparência na fonte Perl não importa aqui. Por exemplo, iniciar, Unitcheck e Init são blocos FIFO (First-In, First-Out) enquanto a verificação e a extremidade são lifo (último em, primeiro out). Mas o intérprete do Perl e o usuário deste módulo insere blocos no início dos arrays, se eles devem ser executados anteriormente e no final, se eles devem ser executados mais tarde, com um tratamento homogêneo em relação aos arrays block.synopsis use desenvolver :: Gancho (); Init {imprimir "init # 2 \ n"; } Begin {DEVEL :: Hook-> push_init_hook (sub {Imprimir "init # 3 (gancho) \ n"}); DEVEL :: Hook-> SHSPift_Init_hook (sub {Imprimir "init # 1 (gancho) \ n"}); } Imprimir "Runtime \ n"; Saída será: Init # 1 (Hook) Init # 2 Init # 3 (gancho) Requisitos de tempo de execução: · Perl.

DEVEL :: Hook. Software Relacionado