package AA;

require BB;

sub AUTOLOAD {
        my ($self,$extrainfo,@args) = @_;

        local @ISA = 'BB';

        my ($method) = (split /::/, $AUTOLOAD)[-1];
        $superfunk = "SUPER::$method";

        $self->$superfunk(@args);
}

1;