get_code_location

The file and line where a sub’s body begins.

Synopsis

use Sub::Identify qw(get_code_location);
my ($file, $line) = get_code_location(\&Foo::bar);

What you get back

The file the sub was compiled from and the line of its first statement. Nothing for a non-reference, an XSUB, or a sub declared but never defined.