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__ даст вам пакет, в котором был скомпилирован код.

В качестве альтернативы вы можете захотеть caller.Он получает пакет кода, который вызвал текущую подпрограмму.

package Report;

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

package MyModule;

Report::gen_report();