Commit | Line | Data |
35c4ef08 |
1 | #!perl |
2 | use strict; |
3 | use warnings; |
4 | |
5 | BEGIN{ |
6 | eval{ require MRO::Compat }; |
7 | eval{ require mro }; |
8 | } |
9 | |
10 | use Test::More defined(&mro::get_linear_isa) |
11 | ? (tests => 1) |
12 | : (skip_all => 'This test requires mro'); |
13 | |
14 | { |
15 | package Base; |
16 | use Mouse; |
17 | |
18 | package Left; |
19 | use Mouse; |
20 | extends 'Base'; |
21 | |
22 | package Right; |
23 | use Mouse; |
24 | extends 'Base'; |
25 | |
26 | package Diamond; |
27 | use Mouse; |
28 | use mro 'c3'; |
29 | |
30 | extends qw(Left Right); |
31 | |
32 | } |
33 | |
34 | is_deeply([Diamond->meta->linearized_isa], [qw(Diamond Left Right Base Mouse::Object)]); |