perl - 函数可以告诉它是从哪个模块调用的吗？

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";
 }