Select Code to Download

{
    package Foo;
...
    # autoloads foo()
    # autoloads bar()
}

    my $code = $obj->can('foo');
    $obj->$code(...)

    $obj->foo(...)

    AUTOLOAD {
        ...;
...
            croak("No method $method ...");
        }
    }

    AUTOLOAD {
        ...;
...
            croak("No method $method ...");
        }
    }

    AUTOLOAD {
        my $self = $_[0]; # Not shift, using goto.
...
            croak(...);
        }
    }

    sub can {
        my ($self, $method) = @_; # Not shift, using goto.
...

        return $universal; # May be undefined.
    }

    use Class::AUTOCAN sub {
        my $self = shift;
...

        return;
    };

    Class::AUTOCAN->install(
        target => $pkg,
        code => sub { ... },
    );