6 use lib 't/lib', 'lib';
8 use Test::More tests => 89;
11 use Moose::Util::MetaRole;
15 package My::Meta::Class;
17 extends 'Moose::Meta::Class';
23 has 'foo' => ( is => 'ro', default => 10 );
38 Moose::Util::MetaRole::apply_metaclass_roles(
39 for_class => 'My::Class',
40 metaclass_roles => ['Role::Foo'],
43 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
44 'apply Role::Foo to My::Class->meta()' );
45 is( My::Class->meta()->foo(), 10,
46 '... and call foo() on that meta object' );
50 Moose::Util::MetaRole::apply_metaclass_roles(
51 for_class => 'My::Class',
52 attribute_metaclass_roles => ['Role::Foo'],
55 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
56 q{apply Role::Foo to My::Class->meta()'s attribute metaclass} );
57 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
58 '... My::Class->meta() still does Role::Foo' );
60 My::Class->meta()->add_attribute( 'size', is => 'ro' );
61 is( My::Class->meta()->get_attribute('size')->foo(), 10,
62 '... call foo() on an attribute metaclass object' );
66 Moose::Util::MetaRole::apply_metaclass_roles(
67 for_class => 'My::Class',
68 method_metaclass_roles => ['Role::Foo'],
71 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
72 q{apply Role::Foo to My::Class->meta()'s method metaclass} );
73 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
74 '... My::Class->meta() still does Role::Foo' );
75 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
76 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
78 My::Class->meta()->add_method( 'bar' => sub { 'bar' } );
79 is( My::Class->meta()->get_method('bar')->foo(), 10,
80 '... call foo() on a method metaclass object' );
84 Moose::Util::MetaRole::apply_metaclass_roles(
85 for_class => 'My::Class',
86 wrapped_method_metaclass_roles => ['Role::Foo'],
89 ok( My::Class->meta()->wrapped_method_metaclass()->meta()->does_role('Role::Foo'),
90 q{apply Role::Foo to My::Class->meta()'s wrapped method metaclass} );
91 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
92 '... My::Class->meta() still does Role::Foo' );
93 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
94 '... My::Class->meta() still does Role::Foo' );
95 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
96 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
98 My::Class->meta()->add_after_method_modifier( 'bar' => sub { 'bar' } );
99 is( My::Class->meta()->get_method('bar')->foo(), 10,
100 '... call foo() on a wrapped method metaclass object' );
104 Moose::Util::MetaRole::apply_metaclass_roles(
105 for_class => 'My::Class',
106 instance_metaclass_roles => ['Role::Foo'],
109 ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
110 q{apply Role::Foo to My::Class->meta()'s instance metaclass} );
111 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
112 '... My::Class->meta() still does Role::Foo' );
113 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
114 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
115 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
116 q{... My::Class->meta()'s method metaclass still does Role::Foo} );
118 is( My::Class->meta()->get_meta_instance()->foo(), 10,
119 '... call foo() on an instance metaclass object' );
123 Moose::Util::MetaRole::apply_metaclass_roles(
124 for_class => 'My::Class',
125 constructor_class_roles => ['Role::Foo'],
128 ok( My::Class->meta()->constructor_class()->meta()->does_role('Role::Foo'),
129 q{apply Role::Foo to My::Class->meta()'s constructor class} );
130 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
131 '... My::Class->meta() still does Role::Foo' );
132 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
133 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
134 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
135 q{... My::Class->meta()'s method metaclass still does Role::Foo} );
136 ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
137 q{... My::Class->meta()'s instance metaclass still does Role::Foo} );
139 # Actually instantiating the constructor class is too freaking hard!
140 ok( My::Class->meta()->constructor_class()->can('foo'),
141 '... constructor class has a foo method' );
145 Moose::Util::MetaRole::apply_metaclass_roles(
146 for_class => 'My::Class',
147 destructor_class_roles => ['Role::Foo'],
150 ok( My::Class->meta()->destructor_class()->meta()->does_role('Role::Foo'),
151 q{apply Role::Foo to My::Class->meta()'s destructor class} );
152 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
153 '... My::Class->meta() still does Role::Foo' );
154 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
155 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
156 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
157 q{... My::Class->meta()'s method metaclass still does Role::Foo} );
158 ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
159 q{... My::Class->meta()'s instance metaclass still does Role::Foo} );
160 ok( My::Class->meta()->constructor_class()->meta()->does_role('Role::Foo'),
161 q{... My::Class->meta()'s constructor class still does Role::Foo} );
163 # same problem as the constructor class
164 ok( My::Class->meta()->destructor_class()->can('foo'),
165 '... destructor class has a foo method' );
169 Moose::Util::MetaRole::apply_metaclass_roles(
170 for_class => 'My::Role',
171 application_to_class_class_roles => ['Role::Foo'],
174 ok( My::Role->meta->application_to_class_class->meta->does_role('Role::Foo'),
175 q{apply Role::Foo to My::Role->meta's application_to_class class} );
177 is( My::Role->meta->application_to_class_class->new->foo, 10,
178 q{... call foo() on an application_to_class instance} );
182 Moose::Util::MetaRole::apply_metaclass_roles(
183 for_class => 'My::Role',
184 application_to_role_class_roles => ['Role::Foo'],
187 ok( My::Role->meta->application_to_role_class->meta->does_role('Role::Foo'),
188 q{apply Role::Foo to My::Role->meta's application_to_role class} );
189 ok( My::Role->meta->application_to_class_class->meta->does_role('Role::Foo'),
190 q{... My::Role->meta's application_to_class class still does Role::Foo} );
192 is( My::Role->meta->application_to_role_class->new->foo, 10,
193 q{... call foo() on an application_to_role instance} );
197 Moose::Util::MetaRole::apply_metaclass_roles(
198 for_class => 'My::Role',
199 application_to_instance_class_roles => ['Role::Foo'],
202 ok( My::Role->meta->application_to_instance_class->meta->does_role('Role::Foo'),
203 q{apply Role::Foo to My::Role->meta's application_to_instance class} );
204 ok( My::Role->meta->application_to_role_class->meta->does_role('Role::Foo'),
205 q{... My::Role->meta's application_to_role class still does Role::Foo} );
206 ok( My::Role->meta->application_to_class_class->meta->does_role('Role::Foo'),
207 q{... My::Role->meta's application_to_class class still does Role::Foo} );
209 is( My::Role->meta->application_to_instance_class->new->foo, 10,
210 q{... call foo() on an application_to_instance instance} );
214 Moose::Util::MetaRole::apply_base_class_roles(
215 for_class => 'My::Class',
216 roles => ['Role::Foo'],
219 ok( My::Class->meta()->does_role('Role::Foo'),
220 'apply Role::Foo to My::Class base class' );
221 is( My::Class->new()->foo(), 10,
222 '... call foo() on a My::Class object' );
232 Moose::Util::MetaRole::apply_metaclass_roles(
233 for_class => 'My::Class2',
234 metaclass_roles => ['Role::Foo'],
235 attribute_metaclass_roles => ['Role::Foo'],
236 method_metaclass_roles => ['Role::Foo'],
237 instance_metaclass_roles => ['Role::Foo'],
238 constructor_class_roles => ['Role::Foo'],
239 destructor_class_roles => ['Role::Foo'],
242 ok( My::Class2->meta()->meta()->does_role('Role::Foo'),
243 'apply Role::Foo to My::Class2->meta()' );
244 is( My::Class2->meta()->foo(), 10,
245 '... and call foo() on that meta object' );
246 ok( My::Class2->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
247 q{apply Role::Foo to My::Class2->meta()'s attribute metaclass} );
248 My::Class2->meta()->add_attribute( 'size', is => 'ro' );
250 is( My::Class2->meta()->get_attribute('size')->foo(), 10,
251 '... call foo() on an attribute metaclass object' );
253 ok( My::Class2->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
254 q{apply Role::Foo to My::Class2->meta()'s method metaclass} );
256 My::Class2->meta()->add_method( 'bar' => sub { 'bar' } );
257 is( My::Class2->meta()->get_method('bar')->foo(), 10,
258 '... call foo() on a method metaclass object' );
260 ok( My::Class2->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
261 q{apply Role::Foo to My::Class2->meta()'s instance metaclass} );
262 is( My::Class2->meta()->get_meta_instance()->foo(), 10,
263 '... call foo() on an instance metaclass object' );
265 ok( My::Class2->meta()->constructor_class()->meta()->does_role('Role::Foo'),
266 q{apply Role::Foo to My::Class2->meta()'s constructor class} );
267 ok( My::Class2->meta()->constructor_class()->can('foo'),
268 '... constructor class has a foo method' );
270 ok( My::Class2->meta()->destructor_class()->meta()->does_role('Role::Foo'),
271 q{apply Role::Foo to My::Class2->meta()'s destructor class} );
272 ok( My::Class2->meta()->destructor_class()->can('foo'),
273 '... destructor class has a foo method' );
281 Moose::Exporter->setup_import_methods( also => 'Moose' );
287 Moose->init_meta( %p, metaclass => 'My::Meta::Class' );
299 Moose::Util::MetaRole::apply_metaclass_roles(
300 for_class => 'My::Class3',
301 metaclass_roles => ['Role::Foo'],
304 ok( My::Class3->meta()->meta()->does_role('Role::Foo'),
305 'apply Role::Foo to My::Class3->meta()' );
306 is( My::Class3->meta()->foo(), 10,
307 '... and call foo() on that meta object' );
308 ok( ( grep { $_ eq 'My::Meta::Class' } My::Class3->meta()->meta()->superclasses() ),
309 'apply_metaclass_roles() does not interfere with metaclass set via Moose->init_meta()' );
315 has 'bar' => ( is => 'ro', default => 200 );
324 Moose::Util::MetaRole::apply_metaclass_roles(
325 for_class => 'My::Class4',
326 metaclass_roles => ['Role::Foo'],
329 ok( My::Class4->meta()->meta()->does_role('Role::Foo'),
330 'apply Role::Foo to My::Class4->meta()' );
332 Moose::Util::MetaRole::apply_metaclass_roles(
333 for_class => 'My::Class4',
334 metaclass_roles => ['Role::Bar'],
337 ok( My::Class4->meta()->meta()->does_role('Role::Bar'),
338 'apply Role::Bar to My::Class4->meta()' );
339 ok( My::Class4->meta()->meta()->does_role('Role::Foo'),
340 '... and My::Class4->meta() still does Role::Foo' );
351 ok( My::Class5->meta()->meta()->does_role('Role::Foo'),
352 q{My::Class5->meta()'s does Role::Foo because it extends My::Class} );
353 ok( My::Class5->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
354 q{My::Class5->meta()'s attribute metaclass also does Role::Foo} );
355 ok( My::Class5->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
356 q{My::Class5->meta()'s method metaclass also does Role::Foo} );
357 ok( My::Class5->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
358 q{My::Class5->meta()'s instance metaclass also does Role::Foo} );
359 ok( My::Class5->meta()->constructor_class()->meta()->does_role('Role::Foo'),
360 q{My::Class5->meta()'s constructor class also does Role::Foo} );
361 ok( My::Class5->meta()->destructor_class()->meta()->does_role('Role::Foo'),
362 q{My::Class5->meta()'s destructor class also does Role::Foo} );
366 Moose::Util::MetaRole::apply_metaclass_roles(
367 for_class => 'My::Class5',
368 metaclass_roles => ['Role::Bar'],
371 ok( My::Class5->meta()->meta()->does_role('Role::Bar'),
372 q{apply Role::Bar My::Class5->meta()} );
373 ok( My::Class5->meta()->meta()->does_role('Role::Foo'),
374 q{... and My::Class5->meta() still does Role::Foo} );
381 Moose::Util::MetaRole::apply_metaclass_roles(
382 for_class => 'My::Class6',
383 metaclass_roles => ['Role::Bar'],
390 ok( My::Class6->meta()->meta()->does_role('Role::Bar'),
391 q{apply Role::Bar My::Class6->meta() before extends} );
392 ok( My::Class6->meta()->meta()->does_role('Role::Foo'),
393 q{... and My::Class6->meta() does Role::Foo because My::Class6 extends My::Class} );
396 # This is the hack that used to be needed to work around the
397 # _fix_metaclass_incompatibility problem. You called extends() (which
398 # in turn calls _fix_metaclass_imcompatibility) _before_ you apply
399 # more extensions in the subclass. We wabt to make sure this continues
400 # to work in the future.
405 # In real usage this would go in a BEGIN block so it happened
406 # before apply_metaclass_roles was called by an extension.
409 Moose::Util::MetaRole::apply_metaclass_roles(
410 for_class => 'My::Class7',
411 metaclass_roles => ['Role::Bar'],
416 ok( My::Class7->meta()->meta()->does_role('Role::Bar'),
417 q{apply Role::Bar My::Class7->meta() before extends} );
418 ok( My::Class7->meta()->meta()->does_role('Role::Foo'),
419 q{... and My::Class7->meta() does Role::Foo because My::Class7 extends My::Class} );
426 Moose::Util::MetaRole::apply_metaclass_roles(
427 for_class => 'My::Class8',
428 metaclass_roles => ['Role::Bar'],
429 attribute_metaclass_roles => ['Role::Bar'],
436 ok( My::Class8->meta()->meta()->does_role('Role::Bar'),
437 q{apply Role::Bar My::Class8->meta() before extends} );
438 ok( My::Class8->meta()->meta()->does_role('Role::Foo'),
439 q{... and My::Class8->meta() does Role::Foo because My::Class8 extends My::Class} );
440 ok( My::Class8->meta()->attribute_metaclass->meta()->does_role('Role::Bar'),
441 q{apply Role::Bar to My::Class8->meta()->attribute_metaclass before extends} );
442 ok( My::Class8->meta()->attribute_metaclass->meta()->does_role('Role::Foo'),
443 q{... and My::Class8->meta()->attribute_metaclass does Role::Foo because My::Class8 extends My::Class} );
451 Moose::Util::MetaRole::apply_metaclass_roles(
452 for_class => 'My::Class9',
453 attribute_metaclass_roles => ['Role::Bar'],
460 ok( My::Class9->meta()->meta()->does_role('Role::Foo'),
461 q{... and My::Class9->meta() does Role::Foo because My::Class9 extends My::Class} );
462 ok( My::Class9->meta()->attribute_metaclass->meta()->does_role('Role::Bar'),
463 q{apply Role::Bar to My::Class9->meta()->attribute_metaclass before extends} );
464 ok( My::Class9->meta()->attribute_metaclass->meta()->does_role('Role::Foo'),
465 q{... and My::Class9->meta()->attribute_metaclass does Role::Foo because My::Class9 extends My::Class} );
468 # This tests applying meta roles to a metaclass's metaclass. This is
469 # completely insane, but is exactly what happens with
470 # Fey::Meta::Class::Table. It's a subclass of Moose::Meta::Class
471 # itself, and then it _uses_ MooseX::ClassAttribute, so the metaclass
472 # for Fey::Meta::Class::Table does a role.
474 # At one point this caused a metaclass incompatibility error down
475 # below, when we applied roles to the metaclass of My::Class10. It's
476 # all madness but as long as the tests pass we're happy.
478 package My::Meta::Class2;
480 extends 'Moose::Meta::Class';
482 Moose::Util::MetaRole::apply_metaclass_roles(
483 for_class => 'My::Meta::Class2',
484 metaclass_roles => ['Role::Foo'],
491 extends 'Moose::Object';
498 Moose::Exporter->setup_import_methods( also => 'Moose' );
506 metaclass => 'My::Meta::Class2',
507 base_class => 'My::Object',
516 Moose::Util::MetaRole::apply_metaclass_roles(
517 for_class => 'My::Class10',
518 metaclass_roles => ['Role::Bar'],
523 ok( My::Class10->meta()->meta()->meta()->does_role('Role::Foo'),
524 q{My::Class10->meta()->meta() does Role::Foo } );
525 ok( My::Class10->meta()->meta()->does_role('Role::Bar'),
526 q{My::Class10->meta()->meta() does Role::Bar } );
527 ok( My::Class10->meta()->isa('My::Meta::Class2'),
528 q{... and My::Class10->meta still isa(My::Meta::Class2)} );
529 ok( My::Class10->isa('My::Object'),
530 q{... and My::Class10 still isa(My::Object)} );
534 package My::Constructor;
536 use base 'Moose::Meta::Method::Constructor';
544 __PACKAGE__->meta->constructor_class('My::Constructor');
546 Moose::Util::MetaRole::apply_metaclass_roles(
547 for_class => 'My::Class11',
548 metaclass_roles => ['Role::Foo'],
553 ok( My::Class11->meta()->meta()->does_role('Role::Foo'),
554 q{My::Class11->meta()->meta() does Role::Foo } );
555 is( My::Class11->meta()->constructor_class, 'My::Constructor',
556 q{... and explicitly set constructor_class value is unchanged)} );
560 package ExportsMoose;
562 Moose::Exporter->setup_import_methods(
569 Moose->init_meta(%p);
570 return Moose::Util::MetaRole::apply_metaclass_roles(
571 for_class => $p{for_class},
572 # Causes us to recurse through init_meta, as we have to
573 # load MyMetaclassRole from disk.
574 metaclass_roles => [qw/MyMetaclassRole/],
580 package UsesExportedMoose;
581 ExportsMoose->import;
582 } 'import module which loads a role from disk during init_meta';
585 package Foo::Meta::Role;
592 Moose::Exporter->setup_import_methods(
593 also => 'Moose::Role',
599 Moose::Role->init_meta(%p);
600 return Moose::Util::MetaRole::apply_metaclass_roles(
601 for_class => $p{for_class},
602 method_metaclass_roles => [ 'Foo::Meta::Role', ],
622 My::Class12->meta->does_role( 'Role::Baz' ),
625 my $method = My::Class12->meta->get_method( 'bla' );
627 $method->meta->does_role( 'Foo::Meta::Role' ),
628 'method_metaclass_role applied'