use Moose::Role;
use Class::MOP;
use Class::MOP::Object;
-use Scalar::Util 'blessed';
sub mk_classdata {
my ($class, $attribute) = @_;
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];