1 2 3 4 5 6 7 8 9 10 11 12
package c; use vars qw($AUTOLOAD); use c::stuff; sub AUTOLOAD { $AUTOLOAD =~ /::(.*)/; goto &{$c::stuff::{$1}}; } 1;