7 # so we don't pick up stuff from Moose::Object
9 sub foo { } # touch it so that 'extends' doesn't try to load it
18 can_ok('Foo', 'meta');
19 is(Foo->meta, Class::MOP::class_of('Foo'));
20 isa_ok(Foo->meta->get_method('meta'), 'Moose::Meta::Method::Meta');
24 use Moose -meta_name => 'bar_meta';
28 ok(!Bar->can('meta'));
29 can_ok('Bar', 'bar_meta');
30 is(Bar->bar_meta, Class::MOP::class_of('Bar'));
31 isa_ok(Bar->bar_meta->get_method('bar_meta'), 'Moose::Meta::Method::Meta');
35 use Moose -meta_name => undef;
39 ok(!Baz->can('meta'));
41 my $universal_method_count = scalar Class::MOP::class_of('UNIVERSAL')->get_all_methods;
42 # 1 because of the dummy method we installed in Base
43 is( ( scalar Class::MOP::class_of('Baz')->get_all_methods )
44 - $universal_method_count, 1 );