sub AUTOLOAD { my $self = shift; my ($method) = (our $AUTOLOAD) =~ /^SUPER::Package::MyPackage::(\w+)$/ or die "Curious value at AUTOLOAD: $AUTOLOAD"; bless $self, 'SUPER::Package'; $self->$method(@_); bless $self, 'SUPER::Package::MyPackage'; }