1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Moose ();
use Moose::Meta::Class;
use Moose::Util::MetaRole;
{
package Foo;
use Moose;
}
{
package Role::Bar;
use Moose::Role;
}
my $anon_name;
{
my $anon_class = Moose::Meta::Class->create_anon_class(
superclasses => ['Foo'],
cache => 1,
);
$anon_name = $anon_class->name;
ok( $anon_name->meta, 'anon class has a metaclass' );
}
ok(
$anon_name->meta,
'cached anon class still has a metaclass after \$anon_class goes out of scope'
);
Moose::Util::MetaRole::apply_metaroles(
for => $anon_name,
class_metaroles => {
class => ['Role::Bar'],
},
);
BAIL_OUT('Cannot continue if the anon class does not have a metaclass')
unless $anon_name->can('meta');
my $meta = $anon_name->meta;
ok( $meta, 'cached anon class still has a metaclass applying a metarole' );
done_testing;
|
