Alcance :: Superior Act AUTO EN SCOPES SUPERIORES
Descargar ahora

Alcance :: Superior Clasificación y resumen

Alcance :: Superior Etiquetas

Módulo perl perla Superior alcance Scopes superiores

Alcance :: Superior Descripción

Actuar sobre los ámbitos superiores SINOPSIS PAQUETE X; Uso Scope :: Upper QW / REAP LOCALIZE LOCALIZE_ELEM LOCALIZE_DELETE: PALABRAS /; SUB DESC {SHIFT -> {DESC}} SUB SET_TAG {MY ($ DESC) = @_; # Primero localiza $ X para que se destruya el último localize '$ x' => bless ({desc => $ DESC}, __Package__) => arriba; # un ámbito sube subible sub "my $ pkg = llamador; MY $ X = DO {NO STRICT 'REFS'; $ {$ PKG. ':: x'}}; # Obtenga el $ X en el ámbito de impresión $ X-> Desc. ": hecho ";} => Alcance 1; # lo mismo que arriba aquí localize_elem '% sig', '__warn__' => sub {My $ PKG = Llamador; My $ x = do {no estrict 'refs'; $ {$ pkg '; :: x '}}; # Obtenga el $ X en el núcleo de alcance :: Advierta ($ X-> Desc.': '. Únete a (' ', @_));} => Up Llamador 0; # igual que Aquí # Eliminar Último elemento de @argv localize_delete '@argv', -1 => sube sube aquí; # mismo que arriba aquí} Paquete Y; {x :: Set_tag ('Pie'); # $ x es ahora un objeto x ahora , y @argv tiene un elemento menos advierte '; "# advierte" Pie: qué en ... "...} #" Pie: "Hecho" se imprime el paquete Z; Use el alcance :: Upper QW / Desk Want_at: Palabras /; Sub intento () {my @Result = Shift -> (); My $ CX = Sub Up Sub; RECHAYD + (Want_at ($ CX)? @Result: Scalar @Result) => $ CX;} ... Sub Zap {try {devolver @things; # Devuelve para intentar () y luego fuera de ZAP () # no alcanzado} # # No se ha alcanzado} My @what = Zap (); # @ What contiene @thingscope :: Upper es un módulo Perl que le permite aplazar las acciones en tiempo de ejecución que se llevará a cabo cuando el flujo de control vuelva a un alcance superior. Actualmente, puede: * enganchar una Uppe R alcance final con "cosechar"; * Localizar variables, valores de matriz / hash o eliminaciones de elementos en contextos más altos con respectivamente "localize", "localize_elem" y "localize_delete"; * Vuelva a devolver los valores inmediatamente a un nivel superior con "Relleno" y sepa qué contexto estaba en uso, entonces con "Want_at". Requisitos: · Perl

Alcance :: Superior Software relacionado