Haken:: PrePostCall ist eine Perl-Baugruppe, die Maßnahmen vor und nach einem Programm addieren kann.

SYNOPSE

5.000 erfordern;
Gebrauch Haken:: PrePostCall;

Vorversuch {
Druck STDERR „im Versuch: @_n“;
@_;
}

PrePostCall->new (
Versuch,
Unterseeboot {
Druck STDERR „vor: @_n“;
# Prozeß der @ _ Inhalt…, wenn Sie wünschen
@_; # definiert die Versuchargumente
},
Unterseeboot {
Pfosten des Druckes STDERR „: @_n“;
# Prozeß der @ _ Inhalt…, wenn Sie wünschen
@_; # definiert, was der Versuch zurückbringt
}
);
Druckversuch (10), „N“;

neu () erstellt eine neue Nachricht des Hakens:: PrePostCall Kategorie. Argumente der neuen Methode sind:

1. der Name des Hauptprogramms, das Sie „überbelasten möchten“,
2. ein anonymes Programm zum Rufen vor dem Hauptprogramm,
3. ein anonumous Programm zum Rufen nach dem Hauptprogramm.

Wenn der Name der Hauptsubroutine nicht ein ausdrückliches Paketvorzeichen hat, wird es angenommen, um der Name einer Subroutine im aktuellen Paket des aufrufenden Programms der neuen () Methode zu sein.

Das vor Programm tritt als ein Filter der routinemäßigen Hauptargumente auf. Das Pfostenprogramm tritt als ein Filter von auf, was die Hauptumsätze.

neu () kann als Kategorie oder Nachrichtenmethode verwendet werden. Wenn Sie verwendet werden, wie eine Nachrichtenmethode die berechnete Definition von der Anfangsdefinition des Hauptprogramms aufgebaut wird.

berechnet () bringt das überbelastete Programm zurück.

vor () bringt zurück oder stellt die vor Maßnahmetrennwand ein.

() Umsätze bekanntgeben oder die Pfostenmaßnahmetrennwand einstellen.

Haupt () bringt das Hauptprogramm zurück.

() Retore Anfangsdefinition des Hauptprogramms zurückstellen.