obtaining name of the current subroutine

[Michael Preminger]

Hello!

Is there a constant, literal, function or any other construct that
returns the name of the subroutine from which it is invoked?

I would like something like this

sub <any_name>{
print "I am in: <CONSTRUCT RETURNING SUBROUTINE NAME>"

}

Thanks

Michael

 

[Vetle Roeim]

[...]

Is there a constant, literal, function or any other construct that
returns the name of the subroutine from which it is invoked?

This seems to work:

sub foo {
my ($package, $filename, $line, $subroutine, $hasargs,
$wantarray, $evaltext, $is_require, $hints, $bitmask) =
caller(0);

print $subroutine, "\n";
}



[...]