Scope :: Upper. 상단 범위에서 작용합니다
지금 다운로드

Scope :: Upper. 순위 및 요약

Scope :: Upper. 태그

Perl 모듈 펄 높은 범위 상단 범위

Scope :: Upper. 설명

상단 범위에서 행동하십시오 시놉시스 패키지 x; Scope :: Upper QW / Reap Localize Localize_Elem Localize_Delete : 단어 /; 하위 desc {shift -> {desc}} sub set_tag {my ($ desc) = @_; # $ x를 처음로 현지화하여 마지막으로 파괴되도록 '$ x'=> 축복 ({desc => $ desc}, __package__) => up; # 한 번의 범위가 Reap 하위 {My $ pkg = 발신자; MY $ X = DO {엄격하지 않음 "; $ {$ pkg. ':: x'}}; # 스코프 인쇄 $ X-> DESC에서 $ X를 얻으십시오. ": 완료 ";} => 범위 1; 여기서 localize_elem '% sig', '__warn__'=> sub {my $ pkg = 호출자; my $ x = do {$ {$ pkg '; :: x '}}; # $ X를 범위 코어 :: 경고 ($ x -> desc.': '. 가입 (', @_));} => 호출자 0; # UP # Localize_Delete '@argv'@argv '@argv'삭제 여기에서 삭제하십시오. 여기에서와 동일합니다.} 패키지 y; {x :: set_tag ( 'pie'); # $ x는 지금 x 객체입니다. 그리고 @argv는 하나의 요소가 덜 경고 된 '무엇', # 경고 "파이 : at ..."... "...} #"pie : done "은 인쇄 된 패키지 z입니다; 범위를 사용하십시오 :: 어퍼 qw / unment wank_at : 단어 사용 /; sub try () {my @Result = shift -> (); my $ cx = sub up sub; unwind + (wank_at ($ cx) @Result : scalar @Result) => $ cx;} ... 하위 zap {try {return @things return to try () 복귀 () #에 도달하지 않음} # @ what = zap (); # @what sectory @thingsscope :: 어퍼는 perl 모듈입니다. 이는 컨트롤 흐름이 상위 범위로 돌아갈 때 수행 할 수있는 런타임에 작업을 연기 할 수 있습니다. 현재, 당신은 다음을 할 수 있습니다 : * UPPE 후크 r 범위는 "reap"로 끝납니다. * 변수, 배열 / 해시 값 또는 상위 컨텍스트에서 요소의 배열 / 해시 값 또는 삭제를 각각 "로컬 화", "localize_elem"및 "localize_delete"; * 값을 "푸시하지 않게"로 즉시 반환하고 "wans_at"로 어떤 컨텍스트를 사용하고 있는지 알고 있습니다. 요구 사항 : · Perl.

Scope :: Upper. 관련 소프트웨어