[Toulouse-pm] Retrouver le nom d'une sub

[Stephane Chatty]

Bonjour,

brisons le long silence sur Toulouse-pm par une question un peu tordue. Je 
reçois une référence sur une sub, et je voudrais trouver son nom. Est-ce 
possible, et si oui comment ?

En gros :

my $var = shift;
if (ref $var eq 'CODE') {
  print id ($var), "\n";
}

Et il reste à trouver la fonction id qui retourne "anonymous sub" ou "foo" ou 
"Bar::baz" selon les cas.

Des suggestions ?

Stéphane Chatty
IntuiLab