6 use Test::More tests => 10;
19 sub make_anon_instance{
21 my $class = ref $self || $self;
23 my $anon_class = Class::MOP::Class->create_anon_class(superclasses => [$class]);
24 $anon_class_name = $anon_class->name;
25 $anon_meta_name = Scalar::Util::blessed($anon_class);
26 $anon_class->add_attribute( $_, reader => $_ ) for qw/bar baz/;
28 my $obj = $anon_class->new_object(bar => 'a', baz => 'b');
37 my $instance = Foo->make_anon_instance;
39 isa_ok($instance, $anon_class_name);
40 isa_ok($instance->meta, $anon_meta_name);
41 isa_ok($instance, 'Foo', '... Anonymous instance isa Foo');
43 ok($instance->can('foo'), '... Anonymous instance can foo');
44 ok($instance->meta->find_method_by_name('foo'), '... Anonymous instance has method foo');
46 ok($instance->meta->has_attribute('bar'), '... Anonymous instance still has attribute bar');
47 ok($instance->meta->has_attribute('baz'), '... Anonymous instance still has attribute baz');
48 is($instance->bar, 'a', '... Anonymous instance still has correct bar value');
49 is($instance->baz, 'b', '... Anonymous instance still has correct baz value');
51 is_deeply([$instance->meta->class_precedence_list],
52 [$anon_class_name, 'Foo'],
53 '... Anonymous instance has class precedence list',