sub foo(&)

Une fois n'est pas coutume, c'est pas une question, mais une info
d'autosatisfaction.

J'ai un bout de code ou j'avais envie de rajouter du code de debug.
Ca finit le plus souvent en pseudo-print:

debug "Params=@params\n";

Le souci, c'est que les parametres sont evalues meme si on n'est pas en
mode debug.

Un peu d'experimentation avec les prototypes donnent le bon resultat.
Le premier truc sympa, c'est que
sub { 1, 2, 3}
renvoie effectivement une liste de valeurs dans un contexte wantarray.

et le 2e truc, c'est que la syntaxe est relativement agreable:

sub debug(&)
{
my $vals = shift;
if ($debugmode) {
print STDERR (&$vals);
}
}


debug {"Params=@params\n"};

j'ai juste un peu rame a essaye de faire de l'objet avant de decouvrir que
ce genre de forme syntaxique ne marchait que sur de vrais appels de fonction
(a raison). Faudra donc ecrire un wrapper fonctionnel autour d'une classe
quelconque si on veut faire plus complique...

Il faut aussi faire attention au fait que cette syntaxe allegee n'est
disponible QUE si le bloc de code est le premier parametre, sinon il faut
garder le sub anonyme et tutti-quanti.

Je n'ai pas vraiment mesure les differences en perf, mais vu que dans certains
cas, le code de debug allait sans doute se taper une liste de 5000 valeurs,
je pense qu'on y gagne...

Un petit regret: apparemment, on ne peut pas faire de
sub foo([$&])

ca serait pourtant bien pratique pour avoir `la meme fonction' qui prend
un bloc de code a evaluer (si celui-ci est couteux) ou une chaine a
afficher... (sachant que sub foo(\[$&]) existe mais n'a pas la semantique
appropriee).

Commentaires ou questions bienvenus ;-)