Роль лося в ролях

Question

Я хотел бы установить удобную роль лося, состоящую из других меньших ролей.Например, если у меня есть 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;

Answer 2

Новое значение: «используйте namepace :: autoclean;» вместо «no Moose;» и «no Moose :: Role;»

В случае, если вы хотите услышать больше cjs: -)