use strict;
use warnings;
package FP;
sub AUTOLOAD {
our $AUTOLOAD;
print "hello $AUTOLOAD\n"
}
my @pkgs =qw/BLA BLUB MyHomepage::Introduction/;
for my $PKG (@pkgs) {
no strict 'refs';
*{ "${PKG}::AUTOLOAD" } = \&FP::AUTOLOAD
}
BLA::bla();
MyHomepage::Introduction::intro();
####
hello BLA::bla
hello MyHomepage::Introduction::intro
##
##
*${packagename)::AUTOLOAD = \&FP::AUTOLOAD;
^