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'));
40 # 1 because of the dummy method we installed in Base
41 is(scalar Class::MOP::class_of('Baz')->get_all_methods, 1);