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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
use strict;
use warnings;
use Test::More;
use Test::Moose qw(does_ok);
BEGIN {
package Foo::Meta::Role;
use Moose::Role;
Moose::Util::meta_class_alias
FooRole => 'Foo::Meta::Role';
package Foo::Meta::Class;
use Moose;
extends 'Moose::Meta::Class';
with 'Foo::Meta::Role';
Moose::Util::meta_class_alias
FooClass => 'Foo::Meta::Class';
package Foo::Meta::Role::Attribute;
use Moose::Role;
Moose::Util::meta_attribute_alias
FooAttrRole => 'Foo::Meta::Role::Attribute';
package Foo::Meta::Attribute;
use Moose;
extends 'Moose::Meta::Attribute';
with 'Foo::Meta::Role::Attribute';
Moose::Util::meta_attribute_alias
FooAttrClass => 'Foo::Meta::Attribute';
package Bar::Meta::Role;
use Moose::Role;
Moose::Util::meta_class_alias 'BarRole';
package Bar::Meta::Class;
use Moose;
extends 'Moose::Meta::Class';
with 'Bar::Meta::Role';
Moose::Util::meta_class_alias 'BarClass';
package Bar::Meta::Role::Attribute;
use Moose::Role;
Moose::Util::meta_attribute_alias 'BarAttrRole';
package Bar::Meta::Attribute;
use Moose;
extends 'Moose::Meta::Attribute';
with 'Bar::Meta::Role::Attribute';
Moose::Util::meta_attribute_alias 'BarAttrClass';
}
package FooWithMetaClass;
use Moose -metaclass => 'FooClass';
has bar => (
metaclass => 'FooAttrClass',
is => 'ro',
);
package FooWithMetaTrait;
use Moose -traits => 'FooRole';
has bar => (
traits => [qw(FooAttrRole)],
is => 'ro',
);
package BarWithMetaClass;
use Moose -metaclass => 'BarClass';
has bar => (
metaclass => 'BarAttrClass',
is => 'ro',
);
package BarWithMetaTrait;
use Moose -traits => 'BarRole';
has bar => (
traits => [qw(BarAttrRole)],
is => 'ro',
);
package main;
my $fwmc_meta = FooWithMetaClass->meta;
my $fwmt_meta = FooWithMetaTrait->meta;
isa_ok($fwmc_meta, 'Foo::Meta::Class');
isa_ok($fwmc_meta->get_attribute('bar'), 'Foo::Meta::Attribute');
does_ok($fwmt_meta, 'Foo::Meta::Role');
does_ok($fwmt_meta->get_attribute('bar'), 'Foo::Meta::Role::Attribute');
my $bwmc_meta = BarWithMetaClass->meta;
my $bwmt_meta = BarWithMetaTrait->meta;
isa_ok($bwmc_meta, 'Bar::Meta::Class');
isa_ok($bwmc_meta->get_attribute('bar'), 'Bar::Meta::Attribute');
does_ok($bwmt_meta, 'Bar::Meta::Role');
does_ok($bwmt_meta->get_attribute('bar'), 'Bar::Meta::Role::Attribute');
done_testing;
|