in reply to What is this doing, and why is this a good method of doing it?
I think I prefer
use Symbol qw/ qualify_to_ref /; *{ qualify_to_ref($name) } = sub { ... };
ihb
See perltoc if you don't know which perldoc to read!
In Section
Obfuscated Code