13 before method => sub { $foo++ };
21 before method => sub { $bar++ };
38 Mouse::Util::apply_all_roles('Baz', 'BarRole', 'FooRole');
43 is join(",", sort $baz->meta->get_method_list), 'bar,foo,meta,method';
48 Mouse::Util::apply_all_roles($qux, 'FooRole');
57 Mouse::Util::apply_all_roles($qux, 'BarRole');
66 Mouse::Util::apply_all_roles($qux, 'FooRole', 'BarRole');