Может ли функция определить, из какого модуля она была вызвана?

Question

package Bar; 
use Foo; 

sub bar { fooit "hello from bar"; } 

package Foo; 

sub fooit { 
    # Somehow I want this function to know it was called 
    # from the "Bar" module (in this case). 
} 

Предпочтительно, это было бы сделано без явно переданного аргумента, содержащего имя вызывающего модуля.

Answer 1

Встроенная функция caller может использоваться для получения информации о текущем стеке вызовов.

sub fooit { 
    my ($pkg, $file, $line) = caller; 
    print STDERR "fooit was called from the $pkg package, $file:$line\n"; 
} 

Answer 2

caller без аргументов в скалярном контексте будет возвращать пространство имен вызывающего абонента.

my $caller = caller(); 

или

print caller()."\n";  # '.' forces scalar context 

или

print "".caller(), "\n"; # '.' forces scalar context 

Очень редко бывает, что вам нужно, если вы не пытаетесь воспроизвести поведение одного из подлодки Carp «s.

Answer 3

Использование встроенного caller должно быть самым простым и простым способом сделать это, но Devel::Backtrace также стоит увидеть модуль CPAN, который может предоставить более подробную информацию с помощью элегантного интерфейса.

package Foo; 
use Devel::Backtrace; 

sub fooit { 
    my $backtrace = Devel::Backtrace->new; 

    print $backtrace->point(1)->package, "\n\n"; 
    print $backtrace; 
} 

package Bar; 

sub bar { 
    Foo::fooit('hello from bar'); 
} 

package main; 

Bar::bar(); 

Выход:

Bar 

Devel::Backtrace::new called from Foo (test.pl:5) 
Foo::fooit called from Bar (test.pl:14) 
Bar::bar called from main (test.pl:19)