Perl, how to print the package name?

Question

Is it possible - in Perl - to access the name of the current package (for example, to print it in a customized error report) ?

Answer 1

From perldoc perlmod:

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

Answer 2

__PACKAGE__ will get you the package in which the code was compiled.

Alternatively, you might want caller. It gets the package of the code that called the current sub.

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