Commit | Line | Data |
abbcd124 |
1 | package Base; |
2 | use Any::Moose; |
3 | |
4 | has [qw(aaa bbb ccc)] => ( |
5 | is => 'rw', |
6 | ); |
7 | |
8 | package D1; |
9 | use Any::Moose; |
10 | extends qw(Base); |
11 | has [qw(ddd eee fff)] => ( |
12 | is => 'rw', |
13 | ); |
14 | |
15 | package D2; |
16 | use Any::Moose; |
17 | extends qw(D1); |
18 | has [qw(ggg hhh iii)] => ( |
19 | is => 'rw', |
20 | ); |
21 | |
22 | package main; |
23 | use Test::More; |
24 | use Test::Mouse; |
25 | |
26 | with_immutable { |
27 | my $attrs_list = join ",", |
28 | map { $_->name } D2->meta->get_all_attributes; |
29 | is $attrs_list, join ",", qw(aaa bbb ccc ddd eee fff ggg hhh iii); |
30 | } qw(Base D1 D2); |
31 | done_testing; |