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
|
#!perl
use strict;
use warnings;
BEGIN{
eval { require MRO::Compat };
eval q{ require mro }; # avoid xt/minimum_version.t violation
}
use Test::More defined(&mro::get_linear_isa)
? (tests => 1)
: (skip_all => 'This test requires mro');
{
package Base;
use Mouse;
package Left;
use Mouse;
extends 'Base';
package Right;
use Mouse;
extends 'Base';
package Diamond;
use Mouse;
use mro 'c3';
extends qw(Left Right);
}
is_deeply([Diamond->meta->linearized_isa], [qw(Diamond Left Right Base Mouse::Object)]);
|
