2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
11 use Mouse::Meta::Class;
12 use Mouse::Util::MetaRole;
27 my $anon_class = Mouse::Meta::Class->create_anon_class(
28 superclasses => ['Foo'],
32 $anon_name = $anon_class->name;
34 ok( $anon_name->meta, 'anon class has a metaclass' );
39 'cached anon class still has a metaclass after \$anon_class goes out of scope'
42 Mouse::Util::MetaRole::apply_metaroles(
45 class => ['Role::Bar'],
49 BAIL_OUT('Cannot continue if the anon class does not have a metaclass')
50 unless $anon_name->can('meta');
52 my $meta = $anon_name->meta;
53 ok( $meta, 'cached anon class still has a metaclass applying a metarole' );