John V. Pataki wrote:
> Is there a perl special variable that the module can
> use which will == $0 in the main?
$0 works the same in a package as it does in main. I assume
you are asking for an equivalent variable for the package.
You can print the filename, line number and package name :
print "file=", __FILE__, ", line=", __LINE__, ", pkg=", __PACKAGE__, "\n";
I know of no easy way to get the full path of the package other than
printing it out of %INC :
print $INC{__PACKAGE__ . '.pm'}, "\n";
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
