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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Moose::Meta::Class;
{
package Class;
use Moose;
package Foo;
use Moose::Role;
sub foo_role_applied { 1 }
package Bar;
use Moose::Role;
sub bar_role_applied { 1 }
}
# try without caching first
{
my $class_and_foo_1 = Moose::Meta::Class->create_anon_class(
superclasses => ['Class'],
roles => ['Foo'],
);
my $class_and_foo_2 = Moose::Meta::Class->create_anon_class(
superclasses => ['Class'],
roles => ['Foo'],
);
isnt $class_and_foo_1->name, $class_and_foo_2->name,
'creating the same class twice without caching results in 2 classes';
map { ok $_->name->foo_role_applied } ($class_and_foo_1, $class_and_foo_2);
}
# now try with caching
{
my $class_and_foo_1 = Moose::Meta::Class->create_anon_class(
superclasses => ['Class'],
roles => ['Foo'],
cache => 1,
);
my $class_and_foo_2 = Moose::Meta::Class->create_anon_class(
superclasses => ['Class'],
roles => ['Foo'],
cache => 1,
);
is $class_and_foo_1->name, $class_and_foo_2->name,
'with cache, the same class is the same class';
map { ok $_->name->foo_role_applied } ($class_and_foo_1, $class_and_foo_2);
my $class_and_bar = Moose::Meta::Class->create_anon_class(
superclasses => ['Class'],
roles => ['Bar'],
cache => 1,
);
isnt $class_and_foo_1->name, $class_and_bar,
'class_and_foo and class_and_bar are different';
ok $class_and_bar->name->bar_role_applied;
}
# This tests that a cached metaclass can be reinitialized and still retain its
# metaclass object.
{
my $name = Moose::Meta::Class->create_anon_class(
superclasses => ['Class'],
cache => 1,
)->name;
$name->meta->reinitialize( $name );
can_ok( $name, 'meta' );
}
done_testing;
|
