Perl，如何打印包名？

Question

在 Perl 中是否可以访问当前包的名称（例如，在自定义错误报告中打印它）？

Answer 1

来自 perldoc perlmod：

The special symbol __PACKAGE__ contains the current package,
but cannot (easily) be used to construct variable names.

Answer 2

__PACKAGE__ 将获取编译代码的包。

或者，您可能需要调用者。它获取调用当前子程序的代码的包。

package Report;

sub gen_report {
   my $report = "This report is generated for ".caller().".\n";  # MyModule
   ...
}

package MyModule;

Report::gen_report();