어디서나 내장형처럼 호출 할 수있는 서브 루틴을 정의 할 수 있습니까?

Question

현재 디버깅하는 동안, 나는 내 코드에

carp Dumper \@foo, \%bar; 

문을 삽입하고 정기적으로 Carp 및 Data::Dumper가 현재 패키지에 가져올 수 없습니다하는 문제로 실행하는 경향이있다. 나는 사방

main::bla \@foo, \%bar; 

을 할 수 그래서 지금

sub main::bla { 
    use Carp; use Data::Dumper; 
    carp Dumper @_; 
} 

하지만 main::은 날 귀찮게 :이 문제를 방지하려면 항상 포함되어있어 중앙 파일에 다음과 같은 하위를 정의했다. 어떤 패키지에도 자동으로 가져 오는 글로벌 패키지와 같은 것이 있습니까 (실제로는 모든 곳에서 가져온 내장 함수와 비슷합니다).

Answer 1

당신은 그냥

::bla(\@foo, \%bar); 

이전 일에서, 나는 Ut 패키지에 폴더의 유틸리티 기능을 넣어 사용 호출 할 수 있습니다. 그리고 괜찮 았지만, 생각한 것처럼 코드가 실제로 모듈화 된 것이 아니라는 것을 알았습니다. Ut 함수에 의존하는 각 모듈은 누군가가 문제를 빌드 네임 스페이스로 가져 가면 성공할 수있었습니다.

결국 나는 use과 require 문을 단순히 종속성을 문서화하는 것으로 간주했습니다. main에서 구현을 변경하는 대신 라이브러리 모듈에서 호출하는 코드를 변경하는 더 유연한 방법이 있습니다.

예를 들어 하나의 use 문에서이 작업을 수행 할 수 있습니다.

use Ut blah => sub { 
    use Carp; 
    use Data::Dumper; 
    carp Dumper @_; 
}; 

그리고 가져 오기 정의 : 나는 한 번에 많은 코드를 개발하고 있어요 때

sub import { 
    shift; # It's just me 
    my ($name, $impl) = @_; 
    if ($name eq 'blah' && ref($impl) eq 'CODE') { 
     *blah = $_[1]; 
    } 
    ... 
} 

나는 여전히 ut 패턴을 사용합니다. (가끔 U::를 호출하기 때문에) 3-4 문자를 저장하기에 반대하지만

ut:dump_var($var) 

를 작성 상관하지 않습니다.

이제 장기간을 원하지 않고 변수를 버려두는 것이 개발에 유용합니다. 당신이 정말로 이렇게 할 경우, Smart::Comments 지금처럼 작업을 수행합니다

### @foo 
### %bar 

그것을 가지고가는 것은 하나의 use 문이다.

use Smart::Comments; 

Answer 2

내보내기가 필요한 다른 패키지를 만드는 것이 더 좋을 수도 있습니다. 좋아요, MyTest.오후 :

package MyTest; 

use strict; 
use Carp; 
use Data::Dumper; 


use base qw(Exporter); 
our @EXPORT = qw(
    debug 
) 

sub debug { 
    carp Dumper @_; 
} 

1; 

그래서 당신은 그럼 그냥 스크립트에서 쓸 수 있습니다 :

use MyTest; 

debug {a => 'b', c => 'd' } 

Answer 3

재미있는 사실 : Some symbols 그들은 항상 main 패키지에 자신의 값을 참조하는 마법이다. 이 기호에 서브 루틴을 할당하면 서브 루틴을 패키지에 표시 할 수 있습니다. 당신은 당신의 코드가 미친 유지하고 다음 사람을 운전하려는 경우가 아니면이의

{ 
    package Foo; 

    # special names _ ARGV ARGVOUT ENV INC SIG STDERR STDIN STDOUT 
    sub ENV { print "In main::ENV ...\n" } 
    sub STDIN { print "In main::STDIN ...\n" } 
    sub _ { print "In main::_\n" } 

    # names that begin with^+ upper case letter, or all digits 
    *{^T} = sub { scalar localtime }; 
    *{^Gmtime} = sub { scalar gmtime }; 
    *43 = sub { 42 }; 

    use Data::Dumper; 
    *{^D} = \&Data::Dumper::Dumper; 
} 

{ 
    package Bar; 
    &ENV; 


    STDIN(); 
    print "The time is ", &^T, "\n"; 
    print "In London it is ", &{^Gmtime}, "\n"; 
    print "The answer is ", &43, "\n"; 

    print "\@foo is ", &^D(\@foo); 
} 

없음은 권장되지 않습니다.