perl - 如何在角色中使用 MooseX::ClassAttribute？

Question

我想在角色中使用 MooseX::ClassAttribute。即，做类似的事情

package Cachable;

use Moose::Role;
use MooseX::ClassAttribute;

class_has Cache => ( is => 'rw' );

1;

不幸的是，上面的代码不起作用，因为 MooseX::ClassAttribute 的深层魔法期望从 Moose 对象而不是 Moose::Role 中调用。
有没有办法解决这个问题，或者这是一个已知的限制？

Answer 1

你给我发了一个补丁，使这个工作。这当然是可行的，尽管由于角色处理属性的方式，Moose 内部结构使它变得比它需要的更难。