Perl 6 File::HomeDir模块listop操作符引发无限递归如何修复？

问题根源 #

代码触发无限循环的核心原因：

• File::HomeDir类自身定义了my-home、my-desktop等实例方法，这些方法会递归调用File::HomeDir.new.my-*。
• 类方法的优先级高于角色方法，当单例实例混入对应平台角色后，实例的方法仍然是类中定义的版本，而非角色实现的方法，导致递归永不终止。
• 角色中的存根方法（比如my-desktop里的!!!）根本没有被执行到。

修复步骤 #

1. 删除类中的递归实例方法 #

直接移除File::HomeDir类中所有类似以下的方法定义：

method my-home {
  return File::HomeDir.new.my-home;
}

method my-desktop {
  return File::HomeDir.new.my-desktop;
}

这些方法是循环的起点，移除后，实例的方法会由混入的角色提供。

2. 可选：添加明确的类方法（提升代码可读性） #

如果希望直接通过类调用方法（如File::HomeDir.my-desktop），可以添加类方法代理到单例实例：

method my-home is classmethod {
  self.new.my-home;
}

method my-desktop is classmethod {
  self.new.my-desktop;
}

类方法会获取单例实例，然后调用角色实现的对应方法，不会产生循环。

3. 保留角色中的存根方法 #

角色中的!!!是Perl 6标准的"未实现"标记，会抛出X::NYI异常，这是合理的临时实现，无需修改：

method my-desktop {
  !!! "my-desktop method not implemented for macOSX";
}

验证修复 #

调用say File::HomeDir.my-desktop;后，现在会：

1. 触发类方法（如果添加）或Perl 6自动创建单例实例。
2. 执行对应平台角色中的my-desktop方法，抛出预期的X::NYI异常，而非无限循环。

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