12 my $anon = Class::MOP::Package->create_anon;
14 $anon->add_package_symbol('&foo' => sub {});
16 ok($anon->is_anon, "is anon");
19 ok(!$name->can('foo'), "!$name->can('foo')");
25 my $anon = Class::MOP::Package->create_anon(weaken => 0);
27 $anon->add_package_symbol('&foo' => sub {});
29 ok($anon->is_anon, "is anon");
36 like(exception { Class::MOP::Package->create_anon(cache => 1) },
37 qr/^Packages are not cacheable/,
38 "can't cache anon packages");