Come posso sapere in quale subroutine mi trovo?

Question

C'è un modo per ottenere il nome della subroutine che racchiude un pezzo di codice perl? Ad esempio:

sub foo { print where_am_i(); } 

stamperà 'foo'.

Answer 1

utilizzare la funzione caller:

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