11 use metaclass no_meta => 1;
14 my $meta = Class::MOP::class_of('Foo');
15 ok(!$meta->has_method('meta'), "no meta method was installed");
16 $meta->add_method(meta => sub { die 'META' });
17 lives_ok { $meta->find_method_by_name('meta') } "can do meta-level stuff";
18 lives_ok { $meta->make_immutable } "can do meta-level stuff";
19 lives_ok { $meta->class_precedence_list } "can do meta-level stuff";
23 my $meta = Class::MOP::Class->create('Bar', no_meta => 1);
24 ok(!$meta->has_method('meta'), "no meta method was installed");
25 $meta->add_method(meta => sub { die 'META' });
26 lives_ok { $meta->find_method_by_name('meta') } "can do meta-level stuff";
27 lives_ok { $meta->make_immutable } "can do meta-level stuff";
28 lives_ok { $meta->class_precedence_list } "can do meta-level stuff";