How can I determine which package my constructor was called from?

Question

I got a package called 1.pm in that the constructor is calling a subroutine which is in the same package.

Now, if some other classes say 2.pm is calling the constructor defined in 1.pm, how can I determine if the subroutine is called from 2.pm?

Answer 1

Use the caller builtin:

$package = caller;

If you want more information you can use:

($package, $filename, $line) = caller;

See perldoc -f caller.