- Run more smokes
- - Test/document ->Class::MOP::Object::meta call in ::ClassData
-
- - Change dispatcher and upgrade docs appropriately (no new method needed)
-
- Using anything ::[CMV]:: should warn (once, on boot).
- TestApp should not use NEXT. There should be a TestAppNEXTCompat
my $slot = '$'.$attribute;
my $accessor = sub {
my $pkg = ref $_[0] || $_[0];
+ # Hack - delberately create a metaclass instance
my $meta = $pkg->Class::MOP::Object::meta();
if (@_ > 1) {
$meta->namespace->{$attribute} = \$_[1];