6 use Test::More tests => 47;
8 use Moose::Util::MetaRole;
12 package My::Meta::Class;
14 extends 'Moose::Meta::Class';
18 package My::Meta::Attribute;
20 extends 'Moose::Meta::Attribute';
24 package My::Meta::Method;
26 extends 'Moose::Meta::Method';
30 package My::Meta::Instance;
32 extends 'Moose::Meta::Instance';
36 package My::Meta::MethodConstructor;
38 extends 'Moose::Meta::Method::Constructor';
42 package My::Meta::MethodDestructor;
44 extends 'Moose::Meta::Method::Destructor';
50 has 'foo' => ( is => 'ro', default => 10 );
60 Moose::Util::MetaRole::apply_metaclass_roles(
61 for_class => 'My::Class',
62 metaclass_roles => ['Role::Foo'],
65 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
66 'apply Role::Foo to My::Class->meta()' );
67 is( My::Class->meta()->foo(), 10,
68 '... and call foo() on that meta object' );
72 Moose::Util::MetaRole::apply_metaclass_roles(
73 for_class => 'My::Class',
74 attribute_metaclass_roles => ['Role::Foo'],
77 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
78 q{apply Role::Foo to My::Class->meta()'s attribute metaclass} );
79 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
80 '... My::Class->meta() still does Role::Foo' );
82 My::Class->meta()->add_attribute( 'size', is => 'ro' );
83 is( My::Class->meta()->get_attribute('size')->foo(), 10,
84 '... call foo() on an attribute metaclass object' );
88 Moose::Util::MetaRole::apply_metaclass_roles(
89 for_class => 'My::Class',
90 method_metaclass_roles => ['Role::Foo'],
93 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
94 q{apply Role::Foo to My::Class->meta()'s method metaclass} );
95 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
96 '... My::Class->meta() still does Role::Foo' );
97 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
98 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
100 My::Class->meta()->add_method( 'bar' => sub { 'bar' } );
101 is( My::Class->meta()->get_method('bar')->foo(), 10,
102 '... call foo() on a method metaclass object' );
106 Moose::Util::MetaRole::apply_metaclass_roles(
107 for_class => 'My::Class',
108 instance_metaclass_roles => ['Role::Foo'],
111 ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
112 q{apply Role::Foo to My::Class->meta()'s instance metaclass} );
113 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
114 '... My::Class->meta() still does Role::Foo' );
115 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
116 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
117 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
118 q{... My::Class->meta()'s method metaclass still does Role::Foo} );
120 is( My::Class->meta()->get_meta_instance()->foo(), 10,
121 '... call foo() on an instance metaclass object' );
125 Moose::Util::MetaRole::apply_metaclass_roles(
126 for_class => 'My::Class',
127 constructor_class_roles => ['Role::Foo'],
130 ok( My::Class->meta()->constructor_class()->meta()->does_role('Role::Foo'),
131 q{apply Role::Foo to My::Class->meta()'s constructor class} );
132 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
133 '... My::Class->meta() still does Role::Foo' );
134 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
135 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
136 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
137 q{... My::Class->meta()'s method metaclass still does Role::Foo} );
138 ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
139 q{... My::Class->meta()'s instance metaclass still does Role::Foo} );
141 # Actually instantiating the constructor class is too freaking hard!
142 ok( My::Class->meta()->constructor_class()->can('foo'),
143 '... constructor class has a foo method' );
147 Moose::Util::MetaRole::apply_metaclass_roles(
148 for_class => 'My::Class',
149 destructor_class_roles => ['Role::Foo'],
152 ok( My::Class->meta()->destructor_class()->meta()->does_role('Role::Foo'),
153 q{apply Role::Foo to My::Class->meta()'s destructor class} );
154 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
155 '... My::Class->meta() still does Role::Foo' );
156 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
157 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
158 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
159 q{... My::Class->meta()'s method metaclass still does Role::Foo} );
160 ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
161 q{... My::Class->meta()'s instance metaclass still does Role::Foo} );
162 ok( My::Class->meta()->constructor_class()->meta()->does_role('Role::Foo'),
163 q{... My::Class->meta()'s constructor class still does Role::Foo} );
165 # same problem as the constructor class
166 ok( My::Class->meta()->destructor_class()->can('foo'),
167 '... destructor class has a foo method' );
171 Moose::Util::MetaRole::apply_base_class_roles(
172 for_class => 'My::Class',
173 roles => ['Role::Foo'],
176 ok( My::Class->meta()->does_role('Role::Foo'),
177 'apply Role::Foo to My::Class base class' );
178 is( My::Class->new()->foo(), 10,
179 '... call foo() on a My::Class object' );
189 Moose::Util::MetaRole::apply_metaclass_roles(
190 for_class => 'My::Class2',
191 metaclass_roles => ['Role::Foo'],
192 attribute_metaclass_roles => ['Role::Foo'],
193 method_metaclass_roles => ['Role::Foo'],
194 instance_metaclass_roles => ['Role::Foo'],
195 constructor_class_roles => ['Role::Foo'],
196 destructor_class_roles => ['Role::Foo'],
199 ok( My::Class2->meta()->meta()->does_role('Role::Foo'),
200 'apply Role::Foo to My::Class2->meta()' );
201 is( My::Class2->meta()->foo(), 10,
202 '... and call foo() on that meta object' );
203 ok( My::Class2->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
204 q{apply Role::Foo to My::Class2->meta()'s attribute metaclass} );
205 My::Class2->meta()->add_attribute( 'size', is => 'ro' );
207 is( My::Class2->meta()->get_attribute('size')->foo(), 10,
208 '... call foo() on an attribute metaclass object' );
210 ok( My::Class2->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
211 q{apply Role::Foo to My::Class2->meta()'s method metaclass} );
213 My::Class2->meta()->add_method( 'bar' => sub { 'bar' } );
214 is( My::Class2->meta()->get_method('bar')->foo(), 10,
215 '... call foo() on a method metaclass object' );
217 ok( My::Class2->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
218 q{apply Role::Foo to My::Class2->meta()'s instance metaclass} );
219 is( My::Class2->meta()->get_meta_instance()->foo(), 10,
220 '... call foo() on an instance metaclass object' );
222 ok( My::Class2->meta()->constructor_class()->meta()->does_role('Role::Foo'),
223 q{apply Role::Foo to My::Class2->meta()'s constructor class} );
224 ok( My::Class2->meta()->constructor_class()->can('foo'),
225 '... constructor class has a foo method' );
227 ok( My::Class2->meta()->destructor_class()->meta()->does_role('Role::Foo'),
228 q{apply Role::Foo to My::Class2->meta()'s destructor class} );
229 ok( My::Class2->meta()->destructor_class()->can('foo'),
230 '... destructor class has a foo method' );
238 Moose::Exporter->setup_import_methods( also => 'Moose' );
244 Moose->init_meta( %p, metaclass => 'My::Meta::Class' );
256 Moose::Util::MetaRole::apply_metaclass_roles(
257 for_class => 'My::Class3',
258 metaclass_roles => ['Role::Foo'],
261 ok( My::Class3->meta()->meta()->does_role('Role::Foo'),
262 'apply Role::Foo to My::Class3->meta()' );
263 is( My::Class3->meta()->foo(), 10,
264 '... and call foo() on that meta object' );
265 ok( ( grep { $_ eq 'My::Meta::Class' } My::Class3->meta()->meta()->superclasses() ),
266 'apply_metaclass_roles() does not interfere with metaclass set via Moose->init_meta()' );
272 has 'bar' => ( is => 'ro', default => 200 );
281 Moose::Util::MetaRole::apply_metaclass_roles(
282 for_class => 'My::Class4',
283 metaclass_roles => ['Role::Foo'],
286 ok( My::Class4->meta()->meta()->does_role('Role::Foo'),
287 'apply Role::Foo to My::Class4->meta()' );
289 Moose::Util::MetaRole::apply_metaclass_roles(
290 for_class => 'My::Class4',
291 metaclass_roles => ['Role::Bar'],
294 ok( My::Class4->meta()->meta()->does_role('Role::Bar'),
295 'apply Role::Bar to My::Class4->meta()' );
296 ok( My::Class4->meta()->meta()->does_role('Role::Foo'),
297 '... and My::Class4->meta() still does Role::Foo' );