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

[Philippe 'BooK' Bruhat]

Le mardi 28 juin 2005 à 12:08, Stephane Chatty écrivait:
> 
> 
> 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 ?

Sub::Identify ?

-- 
 Philippe "BooK" Bruhat

 When the employee is a fool, so is the employer.
                                    (Moral from Groo The Wanderer #26 (Epic))