4 use Test::More tests => 5;
8 package MyRole::Requires;
9 use MooseX::Role::Parameterized;
11 parameter requires => (
18 requires $p->requires;
24 MyRole::Requires->meta->generate_role(
33 Moose::Meta::Class->create_anon_class(
34 roles => [ requires_names('alpha') ],
36 } qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'alpha' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/;
39 Moose::Meta::Class->create_anon_class(
43 roles => [ requires_names('alpha') ],
48 Moose::Meta::Class->create_anon_class(
52 roles => [ requires_names('alpha', 'beta') ],
54 } qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+\|Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'beta' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/;
57 Moose::Meta::Class->create_anon_class(
61 roles => [ requires_names('alpha', 'beta') ],
63 } qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+\|Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'alpha' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/;
66 Moose::Meta::Class->create_anon_class(
71 roles => [ requires_names('alpha', 'beta') ],