sub AUTOLOAD {
    my @name_pieces = split /::/, $AUTOLOAD;
    my $function = pop @name_pieces;
    my $package = join "::", @name_pieces;

    no strict 'refs';
    *{"$package\::$function"} = get_sub($package, $function);
    goto &{"$package\::$function"};
}

##</code><code>##

for my $package (@packages) {
    for my $function (@functions) {
        no strict 'refs';
        *{"$package\::$function"} = get_sub($package, $function);
    }
}