Help for this page

Select Code to Download

Select or download this

sub AUTOLOAD {
    my @name_pieces = split /::/, $AUTOLOAD;
...
    *{"$package\::$function"} = get_sub($package, $function);
    goto &{"$package\::$function"};
}

Select or download this

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