Scope :: Upper. handeln Sie auf den oberen Scopes
Jetzt downloaden

Scope :: Upper. Ranking & Zusammenfassung

Scope :: Upper. Stichworte

Perl-Modul Perl Oberer, höher Umfang obere Bereiche

Scope :: Upper. Beschreibung

Akt in den oberen Skopen handeln Synopsis-Paket X; Verwenden Sie Scope: Upper QW / Reap Localize Localize_elem localize_delete: Wörter /; subdesc {shift -> {desc}} sub set_tag {my ($ desc) = @_; # Erste lokalisierte $ x, damit es zuletzt zerstört wird, um zuletzt "$ x" => segnig ({desc => $ desc}, __package__) => up; # One-Umfang ernten sub {mein $ pkg = Anrufer; mein $ x = do {keine strengen 'Refs'; $ {$ pkg. ':: x'}}; # Holen Sie sich das $ x im Bereich Scope drucken $ X-> DESC. ": fertig ";} => Scope 1; # Wie oben hier oben localize_elem '% sig', '__warn__' => sub {My $ pkg = Anrufer; mein $ x = do {no streng 'Refs'; $ {$ pkg. ' :: x '}}; # Holen Sie sich das $ x im Bereich Scope Core :: Warn ($ X-> DESC.': '. Join (' ', @_));} => Aufrufer 0; # gleich wie Hier oben # Löschen Sie das letzte @argv-Element localize_delete '@argv', -1 => sub hier oben; # gleich wie oben hier} Paket y; {x :: set_tag ('pie'); # $ x ist jetzt ein x-Objekt , und @argv hat ein Element weniger warnen 'was'; # warnt "Kuchen: Was bei ..." ...} # "PIE: DONE" ist gedrucktes Paket Z; Verwenden Sie Umfang: /; Unterversuch () {my @result = Shift -> (); mein $ cx = sub up sub; entsplittieren + (Want_at ($ cx)? @result: scalar @result) => $ cx;} ... SUB ZAP {TRY {RETURN @THINGS; # kehrt zum Versuch () zurück, und dann außerhalb von ZAP () # nicht erreicht} # nicht erreicht} my @what = ZAP (); # @was enthält @thingsscope :: Upper ist ein Perl-Modul Dadurch können Sie Aktionen zur Laufzeit verschieben, in denen er erfolgt, wenn der Steuerungsablauf in einen oberen Bereich zurückkehrt. Derzeit können Sie: * ein Uppe anhaken R SCOPE enden mit "Reap"; * Lokalisieren von Variablen, Array- / Hash-Werten oder Löschungen von Elementen in höheren Kontexten mit jeweils "Localize", "localize_elem" und "localize_delete"; * Geben Sie die Werte sofort auf eine obere Ebene mit "Entspannen" zurück, und wissen, welcher Kontext dann mit "Want_AT" verwendet wurde. Anforderungen: · Perl.

Scope :: Upper. Zugehörige Software