in reply to How to display name of current package

I think you are looking for

 
my $pkg_name = __PACKAGE__ ;

[download]

see __PACKAGE__ for details.

HTH! :)

Cheers Rolf
(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!

In Section Seekers of Perl Wisdom