Commit | Line | Data |
---|---|---|
272a1930 | 1 | use strict; |
2 | use warnings; | |
272a1930 | 3 | use Test::More tests => 2; |
4 | ||
5 | { | |
6 | package Parent; | |
003c5297 | 7 | use Mouse; |
272a1930 | 8 | } |
9 | ||
10 | { | |
11 | package Child; | |
003c5297 | 12 | use Mouse; |
13 | extends 'Parent'; | |
272a1930 | 14 | } |
15 | ||
003c5297 | 16 | is_deeply join(', ', Parent->meta->linearized_isa), 'Parent, Mouse::Object'; |
17 | is_deeply join(', ', Child->meta->linearized_isa), 'Child, Parent, Mouse::Object'; | |
272a1930 | 18 |