仅使用Raku规范特性，如何获取类/对象的方法对象？

获取方法对象的标准方式 #

• 针对类的方法：直接通过&类名::方法名语法获取，比如&L1::m，这是Raku规范定义的标准写法，会返回对应的方法Callable对象。
• 针对对象的绑定方法：先通过元对象协议的^find_method方法找到方法对象，再用assuming绑定实例参数，比如$obj.^find_method('m').assuming($obj)，这样得到的Callable会自动把$obj作为第一个参数传入，等价于调用$obj.m(...)。

实现适配器的几种方案（无需RakuAST） #

1. 动态生成适配器类 #

利用Raku的元对象协议（MOP）动态创建类，批量添加组合后的适配方法：

sub make-adapter(Mu \SourceClass, Mu \TargetClass) {
    # 这里可根据实际接口约定获取需要适配的方法列表，比如取SourceClass的公共方法
    my @adapt-methods = <m n>;

    # 创建新类的元对象
    my \AdapterClass := Metamodel::ClassHOW.new_type;

    # 为每个方法添加适配逻辑：先调用TargetClass的方法，再将结果传入SourceClass的方法
    for @adapt-methods -> $meth {
        AdapterClass.^add_method: $meth, -> |args {
            SourceClass.^find_method($meth)( |TargetClass.^find_method($meth)( |args ) )
        }
    }

    # 完成类的组合
    AdapterClass.^compose;
    return AdapterClass;
}

# 使用示例
my $adapter-class = make-adapter(L1, L2);
my $adapter = $adapter-class.new;
$adapter.m( ... ); # 执行逻辑：L1.m(L2.m(...))

2. 使用参数化角色实现适配 #

通过参数化角色封装适配逻辑，灵活混入到类中：

role Adapter[Mu \Source, Mu \Target] {
    method m(|args) { Source.m(Target.m(|args)) }
    method n(|args) { Source.n(Target.n(|args)) }
    # 其他需要适配的方法同理
}

# 使用示例：创建混入角色的匿名类实例
my $adapter = class does Adapter[L1, L2] {}.new;
$adapter.n( ... );

3. 动态生成适配对象 #

如果仅需要单个适配实例而非类，可以直接创建匿名对象并添加方法：

sub make-adapter-object(Mu \Source, Mu \Target) {
    my @adapt-methods = <m n>;
    # 创建匿名类实例
    my $adapter := Metamodel::ClassHOW.new_type.^create;

    for @adapt-methods -> $meth {
        $adapter.^add_method: $meth, -> |args {
            Source.^find_method($meth)( |Target.^find_method($meth)( |args ) )
        }
    }

    return $adapter;
}

处理实例方法的适配 #

如果需要适配的是实例方法而非类方法，只需调整逻辑绑定实例参数：

sub make-instance-adapter(\source-obj, \target-obj) {
    my @adapt-methods = <m n>;
    my $adapter := Metamodel::ClassHOW.new_type.^create;

    for @adapt-methods -> $meth {
        # 绑定实例到方法对象，确保调用时自动传入实例参数
        my $source-meth = source-obj.^find_method($meth).assuming(source-obj);
        my $target-meth = target-obj.^find_method($meth).assuming(target-obj);

        $adapter.^add_method: $meth, -> |args {
            $source-meth( |$target-meth( |args ) )
        }
    }

    return $adapter;
}

内容的提问来源于stack exchange，提问作者zjmarlow