perl – 角色的驼鹿角色

我想建立一个由其他较小角色组成的便利Moose角色.例如,如果我有WithAddress和WithPhone,我想要一个WithContacts同时提供WithAddress和WithPhone以及我将来添加的任何联系方法.

我怎么能和穆斯一起做这件事？

解决方法

package WithContacts;

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

# anything else your role should do

no Moose::Role;
1;