Can a function tell which module it was called from?

Question

package Bar;
use Foo;

sub bar { fooit "hello from bar"; }

package Foo;

sub fooit {
   # Somehow I want this function to know it was called
   # from the "Bar" module (in this case).
}

Preferably, this would be done without explicitly passing an argument containing the calling module's name.

Answer 1

The builtin caller function can be used to get information about the current call stack.

 sub fooit {
     my ($pkg, $file, $line) = caller;
     print STDERR "fooit was called from the $pkg package, $file:$line\n";
 }