8 use Moose::Util ':all';
31 Foo->meta->apply(Quux->meta);
39 Foo->meta->apply(Quux->meta);
40 Bar->meta->apply(Quux->meta);
43 [ Foo->meta, Foo->meta, Bar->meta ],
47 is(does_role('Quux', 'Foo'), 1, "Quux does Foo");
48 is(does_role('Quux', 'Bar'), 1, "Quux does Bar");
49 ensure_all_roles('Quux', qw(Foo Bar));
52 [ Foo->meta, Foo->meta, Bar->meta ],
53 "unchanged, since all roles are already applied",
57 ensure_all_roles($obj, qw(Foo Bar));
60 [ Foo->meta, Foo->meta, Bar->meta ],
61 "unchanged, since all roles are already applied",