Escopo :: superior Ato em escopos superiores
Baixe Agora

Escopo :: superior Classificação e resumo

Escopo :: superior Tag

Módulo Perl. perl Superior alcance escopos superiores

Escopo :: superior Descrição

Agir em escopos superiores Pacote de sinopse x; Use escopo :: Upper QW / Reap Localize Localize_Elem Localize_Delete: Palavras /; sub Desc {Shift -> {desc}} sub set_tag {my ($ desc) = @_; # Primeiro localize $ x para que seja destruído Última localize '$ x' => abençoe ({desc => $ desce__), __package__) => up; # um escopo up reap sub {my $ pkg = chamador; meu $ x = do {não estrito 'refs'; $ {$ pkg ':: x'}}; # Obter o $ x no escopo imprimir $ x-> desc. ": feito ";} => Escopo 1; # igual a aqui localizar_elem '% sig', '__warn__' => sub {my $ pkg = chamador; meu $ x = do {não estrito 'refs'; $ {$ pkg '. :: x '}}; # obter o $ x no núcleo do escopo :: avisar ($ x-> desc.': '. Juntar (' ', @_));} => Caller 0; # mesmo que Acima daqui # Excluir Último elemento @argv localize_delete '@argv', -1 => subir aqui; # mesmo como up aqui} pacote y; {x :: set_tag ('torta'); # $ x agora é um objeto x e @Argv tem um elemento menos avisar "o que"; # adverte "torta: o que em ..." ...} # "PIE: FEITO" é Pacote Impresso Z; Uso Escopo :: Upper qw / Descontragem Want_at: Palavras /; SUB TENTE () {@Result = Shift -> (); meu $ cx = sub-up sub-up sub-up sub-subir + (want_at ($ cx) @Result: scalar @result) => $ cx;} ... Sub Zap {Experimente {retorno @things; # retorna para tentar () e depois fora zap () # não alcançado} # não alcançado} my @what = zap (); # @what contém @thingscope :: superior é um módulo perl que permite adiar as ações em tempo de execução que ocorrerão quando o fluxo de controle retornar em um escopo superior. Atualmente, você pode: * gancho um uppe r escopo final com "reap"; * Localize variáveis, valores de matriz / hash ou exclusões de elementos em contextos mais altos com respectivamente "localize", "localize_elem" e "localize_delete"; * Retornar valores imediatamente para um nível superior com "descontrair", e saiba qual contexto estava em uso então com "Want_at". Requisitos: · Perl.

Escopo :: superior Software Relacionado