superclasses => [Class::MOP::Class->create_anon_class->name],
);
my @superclasses = $submeta->superclasses;
- { local $TODO = "anon class ancestry isn't preserved yet";
ok(Class::MOP::class_of($superclasses[0]),
"superclasses are kept alive by their subclasses");
- }
}
{
weaken => 0,
)->name;
}
- local $TODO = "non-weak anon classes not implemented yet";
ok(Class::MOP::class_of($meta_name), "metaclass still exists");
{
my $bar_meta;