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");
- }
}
{