4 use Test::More tests => 3;
8 package MyRole::Excluder;
9 use MooseX::Role::Parameterized;
11 parameter exclude => (
22 Moose::Meta::Role->create("Role::A");
23 Moose::Meta::Role->create("Role::B");
27 MyRole::Excluder->meta->generate_role(
36 Moose::Meta::Class->create_anon_class(
37 roles => [ excludes_roles('Role::A') ],
42 Moose::Meta::Class->create_anon_class(
43 roles => [ 'Role::A', excludes_roles('Role::A') ],
45 } qr/^Conflict detected: Role Moose::Meta::Role::__ANON__::SERIAL::\d+ excludes role 'Role::A'/;
48 Moose::Meta::Class->create_anon_class(
49 roles => [ 'Role::B', excludes_roles('Role::A') ],