如何确定调用构造函数的包？

Question

我得到了一个名为1.pm的包，其中构造函数正在调用同一个包中的子例程。

现在，如果其他一些类说2.pm正在调用1.pm中定义的构造函数，我如何确定是否从2.pm调用子程序？

Answer 1

使用内置caller：

$package = caller;

如果您想了解更多信息，请使用：

($package, $filename, $line) = caller;

请参阅perldoc -f caller。