11 Foo->meta->add_attribute('bar');
14 sub check_meta_sanity {
16 isa_ok($meta, 'Class::MOP::Class');
17 is($meta->name, 'Foo');
18 ok($meta->has_method('foo'));
19 ok($meta->has_attribute('bar'));
22 can_ok('Foo', 'meta');
25 check_meta_sanity($meta);
28 $meta = $meta->reinitialize($meta->name);
30 check_meta_sanity($meta);
33 $meta = $meta->reinitialize($meta);
35 check_meta_sanity($meta);
38 $meta->reinitialize('');
39 } qr/You must pass a package name or an existing Class::MOP::Package instance/;
42 $meta->reinitialize($meta->new_object);
43 } qr/You must pass a package name or an existing Class::MOP::Package instance/;