role Perl6::Metamodel::MethodDelegation {
    my $delegate_type;

    method delegate_methods_to($type) {
        $delegate_type := $type
    }

    method delegating_methods_to() {
        $delegate_type
    }

    method find_method($obj, $name, :$no_fallback) {
        $delegate_type.HOW.find_method($delegate_type, $name, :$no_fallback);
    }
}

# vim: expandtab sw=4