sub AUTOLOAD {
        ...
        for my $class (@ISA) {
            if ($class -> can ("AUTOLOAD")) {
                no strict 'refs';
                my $auto = $class . "::AUTOLOAD";
                $$auto = $AUTOLOAD;
                $self -> $auto (@_);
                last;
            }
        }
    }