2 use warnings FATAL => 'all';
12 has attr_a => (is => 'ro');
13 }, undef, 'define role a';
21 has attr_b => (is => 'ro');
22 }, undef, 'define role a';
27 with 'RoleA', 'RoleB';
29 }, undef, 'compose roles with mutual requires into role';
32 package PackageWithPrecomposed;
36 }, undef, 'compose precomposed roles into package';
39 package PackageWithCompose;
41 with 'RoleA', 'RoleB';
43 }, undef, 'compose roles with mutual requires into package';