use strict;
use warnings;
-use Test::More tests => 11;
+use Test::More tests => 10;
use Test::Exception;
-BEGIN {
- use_ok('Class::MOP');
-}
+use Class::MOP;
my $anon_class_name;
my $anon_meta_name;
my $anon_class = Class::MOP::Class->create_anon_class(superclasses => [$class]);
$anon_class_name = $anon_class->name;
- $anon_meta_name = $anon_class->blessed;
+ $anon_meta_name = Scalar::Util::blessed($anon_class);
$anon_class->add_attribute( $_, reader => $_ ) for qw/bar baz/;
my $obj = $anon_class->new_object(bar => 'a', baz => 'b');
- #$obj->{___keep_metaclass_alive___} = $anon_class;
return $obj;
}