in reply to how to get alias name of anonymous sub?
As noone seem to have pointed already, there's one important module on that subject which is Sub::Name. It should allow you to:
use Sub::Name foreach (keys %news_sites) { *{$_} = subname "generator_for_$_" => sub {...} }
But note that you seem to be missing one more important concept here, which is the concept of closures
foreach my $key (keys %news_sites) { *{$key} = sub { ... # as the $key variable was declared in the outer scope of the s +ubroutine, # if the code reference survives longer than this scope it will + retain its # value warn $key; # this will warn the value used when defining this s +ub. } }
daniel
In Section
Seekers of Perl Wisdom