Select Code to Download

local $^W = 0;  # assignments trigger 'subroutine redefined' warning
*{$name} = \&{$map->{$name}};