http://qs321.pair.com?node_id=869410


in reply to typeglob/symbolic reference question

Have you considered Sub::Install?
perl -MSub::Install=install_sub -e 'install_sub({code => sub{print "g +reen".$/}, into => +__PACKAGE__, as => "color"}); color()' green

print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});