개체가 현재 패키지의 기호 테이블에 어떻게 액세스합니까?

Question

개체가 인스턴스화 된 현재 패키지의 기호 테이블에 어떻게 액세스 할 수 있습니까?

my $object = MyModule->new; 
# this looks in the current package, to see if there's a function named run_me 
# I'd like to know how to do this without passing a sub reference 
$object->do_your_job; 

내가 __PACKAGE__를 사용 do_your_job의 구현의 경우

, 그것은 MyModule 패키지를 검색합니다 예를 들어, 나는 이런 식으로 뭔가가있다. 올바른 패키지로 보이게하려면 어떻게해야합니까?

편집 :이 내용을 명확하게하려고 노력할 것입니다.

package MyMod; 

sub new { 
    return bless {},$_[0] 
} 

sub do_your_job { 
    my $self = shift; 
    # of course find_package_of is fictional here 
    # just for this example's sake, $pkg should be main 
    my $pkg = find_package_of($self); 
    if(defined &{ $pkg . '::run_me' }) { 
     # the function exists, call it. 
    } 
} 

package main; 

sub run_me { 
    print "x should run me.\n"; 
} 

my $x = MyMod->new; 

# this should find the run_me sub in the current package and invoke it. 
$x->do_your_job; 

지금, $x 어떻게 든 main 현재 패키지 통지하고, 심볼 테이블을 검색한다 : 나는 다음과 같은 코드가 있다고 가정. 나는 Scalar::Util의 축복을 사용하여 시도했지만, 여전히 main 대신 MyModule을주었습니다. 바라기를, 이것은 지금 조금 더 명확하다.

Answer 1

당신은 caller

caller 당신이 호출 된 패키지를 지시합니다. (여기 좀 표준 펄을 추가했습니다.)

use Symbol qw<qualify_to_ref>; 
#... 
my $pkg = caller; 

my $symb = qualify_to_ref('run_me', $pkg); 
my $run_me = *{$symb}{CODE}; 
$run_me->() if defined $run_me; 

를 찾으려면 당신이 수도 있으므로,이 공통 부분 식 제거하지 않는 표준 펄로 복제 할 전화를 찾아 다음이 정의되어 있는지 확인하고 1) 그것을 검색하고, 2) 슬롯의 정의를 확인하고, 3) 정의 된 경우 실행하십시오.

한 패키지에 하나의 객체를 만들고 다른 패키지에서 사용하면 너무 많은 도움이되지 않습니다. 생성자에 'owning_package'과 같은 추가 필드를 추가해야 할 수 있습니다.

package MyMod; 

#... 
sub new { 
    #... 
    $self->{owning_package} = caller || 'main'; 
    #... 
} 

지금 $x->{owning_package}는 'main' 포함됩니다.

Answer 2

는 perldoc -f caller를 참조하십시오

는

#!/usr/bin/perl 

package A; 
use strict; use warnings; 

sub do_your_job { 
    my ($self) = @_; 
    my ($pkg) = caller; 
    if (my $sub = $pkg->can('run_me')) { 
     $sub->(); 
    } 
} 

package B; 
use strict; use warnings; 

sub test { 
    A->do_your_job; 
} 

sub run_me { 
    print "No, you can't!\n"; 
} 

package main; 

use strict; use warnings; 

B->test; 

는 출력 :

 
C:\Temp> h 
No, you can't!