perl - 角色角色的驼鹿角色

Question

我想设置一个由其他较小角色组成的便利 Moose 角色。例如，如果我有 WithAddress 和 WithPhone，我想要一个 WithContacts，它提供 WithAddress 和 WithPhone 以及我将来添加的任何联系方法。

我怎样才能用 Moose 做到这一点？

Answer 1

package WithContacts;

use Moose::Role;
with qw(WithAddress WithPhone);

# anything else your role should do

no Moose::Role;
1;