8 use Moose::Meta::Class;
16 sub foo_role_applied { 1 }
20 sub bar_role_applied { 1 }
23 # try without caching first
26 my $class_and_foo_1 = Moose::Meta::Class->create_anon_class(
27 superclasses => ['Class'],
31 my $class_and_foo_2 = Moose::Meta::Class->create_anon_class(
32 superclasses => ['Class'],
36 isnt $class_and_foo_1->name, $class_and_foo_2->name,
37 'creating the same class twice without caching results in 2 classes';
39 map { ok $_->name->foo_role_applied } ($class_and_foo_1, $class_and_foo_2);
42 # now try with caching
45 my $class_and_foo_1 = Moose::Meta::Class->create_anon_class(
46 superclasses => ['Class'],
51 my $class_and_foo_2 = Moose::Meta::Class->create_anon_class(
52 superclasses => ['Class'],
57 is $class_and_foo_1->name, $class_and_foo_2->name,
58 'with cache, the same class is the same class';
60 map { ok $_->name->foo_role_applied } ($class_and_foo_1, $class_and_foo_2);
62 my $class_and_bar = Moose::Meta::Class->create_anon_class(
63 superclasses => ['Class'],
68 isnt $class_and_foo_1->name, $class_and_bar,
69 'class_and_foo and class_and_bar are different';
71 ok $class_and_bar->name->bar_role_applied;