Crochet : : PrePostCall est un module de Perl qui peut ajouter des actions avant et après un sous-programme.

SYNTHÈSE

exiger 5.000 ;
crochet d'utilisation : : PrePostCall ;

essai secondaire {
impression STDERR « dans l'essai : @_n » ;
@_ ;
}

PrePostCall->new (
essai,
sous-marin {
impression STDERR « pré : @_n » ;
# procédé @ le contenu de _… si vous voulez
@_ ; # définit les arguments d'essai
},
sous-marin {
goujon de l'impression STDERR « : @_n » ;
# procédé @ le contenu de _… si vous voulez
@_ ; # définit ce que l'essai renvoie
}
) ;
essai d'impression (10), « n » ;

neuf () produit un objectif neuf du crochet : : Classe de PrePostCall. Les arguments de la méthode neuve sont :

1. le nom du sous-programme primaire que vous voulez « surcharger »,
2. un sous-programme anonyme à appeler avant le sous-programme primaire,
3. un sous-programme anonumous à appeler après le sous-programme primaire.

Si le nom de la sous-routine primaire n'a pas un préfixe expressément d'ensemble de mesures, on suppose qu'est le nom d'une sous-routine dans l'ensemble de mesures actuel du demandeur () de la méthode neuve.

Pré le sous-programme agit en tant que filtre des arguments courants primaires. Le sous-programme de goujon agit en tant que filtre de ce qui les renvois primaires.

neuf () peut être employé comme cours ou méthode d'objectif. Une fois utilisé comme une méthode d'objectif la définition dérivée est établie de la définition initiale du sous-programme primaire.

dérivé () renvoie le sous-programme surchargé.

pré () renvoie ou règle la cloison de préaction.

inscrire () les renvois ou régler la cloison d'action de goujon.

primaire () renvoie le sous-programme primaire.

remettre () la définition initiale de Retore du sous-programme primaire.