穆斯角色的角色

时间:2010-08-21 01:25:58

标签: perl roles moose

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

我怎么能用Moose做到这一点?

2 个答案:

答案 0 :(得分:9)

package WithContacts;

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

# anything else your role should do

no Moose::Role;
1;

答案 1 :(得分:0)

新的热门是«使用namepace :: autoclean;»而不是«no Moose;»和«no Moose :: Role;»

如果你想听到更多cjs: - )