Befehle:: Geschützt Perl-Paket stellt bessere Indexe durch geschützt Befehle zur Verfügung.

SYNOPSE

Gebrauch Befehle:: Geschützt;

mein $var = 0;

Stufe etwas =>
sicherstellen {$var == 1}
Anwendung {$var = 1}
; # ist $var jetzt 1

Stufe nichts =>
sicherstellen {$var == 1}
using {$var = 2} # Marke!
; # ist $var noch 1 (gute Sache auch)

mein $brokeUnless5 =
Stufe brokenUnless5 =>
sicherstellen {$var == 5}
Anwendung {$var = Schiebung}
; # geschieht nichts schon

Druck „var: $varn“; # Drucke 1

$brokeUnless5->do (5);

Druck „jetzt var: $varn“; # Drucke 5

Stufeausfallen =>
sicherstellen {$var == 3}
Anwendung {$var = 2}
; # Ausnahme hier geworfen

Diese Baugruppe implementiert ein deterministisches und richtet Variante auf Dijkstras geschützt Befehlen gleich. Jede benannte Stufe wird zwei Blöcke geführt: ein sicherstellenblock, der eine Prüfung für einen notwendigen und genügenden Zustand der Stufe definiert und a using Block, der diesen Zustand veranlaßt zu erreichen.

Wenn Stufe im ungültigen Zusammenhang (d.h., wird nichts zugewiesen oder verwendet als Wert), gerufen wird, wird die Stufe sofort, wie in diesen Pseudo-Code gelaufen:

es sei denn (SICHERSTELLEN) {
ANWENDUNG;
sterben, es sei denn SICHERSTELLEN;
}

Wenn Stufe im Scalar- oder Reihenzusammenhang gerufen wird, wird Ausführung und anstatt Befehle: vertagt: Geschützt Nachricht wird zurückgebracht, die durchgeführt werden kann, wie über der Anwendung Methode tun. Wenn tun wird gegeben Argumente, werden sie zum sicherstellenblock und (wenn notwendig) zum verwendenblock geführt.

Die Schnittstelle zu den Befehlen:: Folglich geschützt ein Mischling der Exportsubroutinen (SUBROUTINEN unten sehen) und nicht-Exportmethoden (METHODEN sehen).
Für eine ausführliche Diskussion über den Grund für dieses Baugruppenbestehen, GRUNDPRINZIP unten sehen.