8 use Mouse::Meta::Class;
9 use Mouse::Util::MetaRole;
24 my $anon_class = Mouse::Meta::Class->create_anon_class(
25 superclasses => ['Foo'],
29 $anon_name = $anon_class->name;
31 ok( $anon_name->meta, 'anon class has a metaclass' );
36 'cached anon class still has a metaclass after \$anon_class goes out of scope'
39 Mouse::Util::MetaRole::apply_metaroles(
42 class => ['Role::Bar'],
46 BAIL_OUT('Cannot continue if the anon class does not have a metaclass')
47 unless $anon_name->can('meta');
49 my $meta = $anon_name->meta;
50 ok( $meta, 'cached anon class still has a metaclass applying a metarole' );