5 use Moose::Util qw( apply_all_roles );
47 my @roles = qw( Role::Foo Role::Bar Role::Baz );
48 apply_all_roles( 'Class::A', @roles );
49 ok( Class::A->meta->does_role($_), "Class::A does $_" ) for @roles;
51 apply_all_roles( 'Class::B', map { $_->meta } @roles );
52 ok( Class::A->meta->does_role($_),
53 "Class::B does $_ (applied with meta role object)" )
56 @roles = qw( Role::Foo );
57 apply_all_roles( 'Class::C', @roles );
58 ok( Class::A->meta->does_role($_), "Class::C does $_" ) for @roles;
60 apply_all_roles( 'Class::D', map { $_->meta } @roles );
61 ok( Class::A->meta->does_role($_),
62 "Class::D does $_ (applied with meta role object)" )
65 @roles = qw( Role::Foo Role::Bar ), Role::Baz->meta;
66 apply_all_roles( 'Class::E', @roles );
67 ok( Class::A->meta->does_role($_),
68 "Class::E does $_ (mix of names and meta role object)" )