use strict;
use warnings;
-use Test::More tests => 136;
+use Test::More tests => 140;
use Test::Exception;
BEGIN {
initialize create create_anon_class
+ instance_metaclass
new_object clone_object
construct_instance construct_class_instance clone_instance
check_metaclass_compatability
# check for the right attributes
-my @attributes = ('$:package', '%:attributes', '$:attribute_metaclass', '$:method_metaclass');
+my @attributes = (
+ '$:package',
+ '%:attributes',
+ '$:attribute_metaclass',
+ '$:method_metaclass',
+ '$:instance_metaclass'
+);
is_deeply(
[ sort @attributes ],