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

Question

我有一个调用的包1.pm,构造函数正在调用一个在同一个包中的子例程.

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

Answer 1

使用caller内置:

$package = caller;

如果您想了解更多信息,可以使用:

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

见perldoc -f调用者.