¿Cómo puedo saber en qué subrutina estoy?

Question

¿Hay alguna manera de obtener el nombre de la subrutina adjunta de un fragmento de código perl? Por ejemplo:

sub foo { print where_am_i(); } 

salida voluntad 'foo'.

Answer 1

utilizar la función caller:

my $function = (caller(0))[3];