gistfile1.txt

# get the dispatcher instance ....
my $dispatcher = $class->dispatcher(':canonical');
# walk the methods
my $method = ::WALKMETH($dispatcher, $label, %opts);

unless (defined $method) {
    # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
    if ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
        $class->STORE('$AUTOLOAD' => $label);
    }
}

(defined $method)
    || confess "Method ($label) not found for " . $opts{for} . " ($self)";
# store the dispatcher state
{
    no warnings 'redefine';
    local *::next_METHOD = sub {
        my $method = ::WALKMETH($dispatcher, $label, %opts);
        confess "No next-method for '$label' found" unless defined $method;
        return $method->($self, @{$args});
    };
    # call the method
    return $method->($self, @{$args});
}