Lifeweiser. Relaxeaction - Rufen Sie die Aktionen auf Release an.
Jetzt downloaden

Lifeweiser. Ranking & Zusammenfassung

Lifeweiser. Stichworte

Perl-Modul Anruf Freisetzung Aktionen anrufen Release-Aktionen ReleaseAction

Lifeweiser. Beschreibung

Relaseaction - Rufen Sie die Aktionen auf Release an. Relaxeaction - Anrufmaßnahmen nach Release.Synopsis verwenden Löslichkeit 'on_release'; {# Oo My $ Griff = RelaseAction-> NEU (Sub {Print "Austritt Scopen"}); drucken "in Scopen"; } {# Funktionsart MEINE $ Griff = on_release {drucken "Austritt scannt"}; drucken "in Scopen"; } {mein $ rollback = on_release {rollback_trans ()}; if (do_stuff ()) {$ Rollback-> Abbrechen (); }} Dies bietet eine einfache Möglichkeit, undurchsichtige Griffe zu schaffen, was etwas tun wird, wenn sie zerstört werden. Es gibt zwei Möglichkeiten, einen neuen Griff zu erstellen. Beide nehmen ein oder mehrere Argumente mit, mit dem zunächst die Aktion, um zu dauern, wenn der Griff freigegeben wird, und die (optionale) Erholung der Argumente, die der Griff bekommt, ist der methodorientierte Konstruktor. Mein $ Griff = RelaseAction-> NEU (Sub {Print Shift}, "Auf Wiedersehen grausamer Worldn"); und eine optionale Funktion on_Release, die Sie importieren können. Für diejenigen, die solche Dinge mögen, habe ich den Prototyp @ für syntaktische Zucker bereitgestellt. Mein $ griff = on_release {drucken Sie "Auf Wiedersehen grausame Worldn"}; und sollten Sie sich entscheiden, dass Sie die Aktion in der Veröffentlichung nach allem nicht durchführen möchten, können Sie die Cancel () -Methode aufrufen. Wie in der Synopsis vorgeschlagen, ist dies nützlich, wenn Sie die Transaktionsmechanik einrichten möchten. Machen Sie das Release-Action Ihre Bereinigung. Und dann, wenn Sie Ihre Änderungen begehen, stornieren Sie die Cleanup.Example Verwenden Sie die Löslichkeit 'on_release'; # Dies tut dasselbe wie der Modul SELECAVER. SUB TMP_SELECT {ON_RELEASE {Select Shift} Select Shift; } Drucken "Dieser Druck geht an stdoutn"; {mein $ hold_select = tmp_select (* stderr); drucken "Dieser Druck geht an stderrn"; } Drucken "drucken auf stdout erneut"; ein längeres Beispiel verwenden Karpfen; Verwenden Sie CWD; Verwenden Sie Löslichkeit; SUB CD_TO {CHDIR ($ _ ) oder CONFESS ("kann nicht chdir auf $ _ : $!"); } sub tmp_cd {mein $ cwd = cwd (); cd_to (Shift); ReleaseAction-> NEU (CD_TO, $ CWD); } Sub Etwa_interesting {My $ in_dir = tmp_cd ("ory_dir"); # Nehmen Sie etwas Interessantes in dem neuen DIR # Ich werde automarisch in den alten DIR-# zurückkehren, wenn ich die Subroutine verlassen und $ in_DIR ($ in_dir) aus dem Geltungsbereich. } Anforderungen: · Perl.

Lifeweiser. Zugehörige Software