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;
require q(./test.pl); plan(tests => 1);
=pod
From the parrot test t/pmc/object-meths.t
A B A E
\ / \ /
C D
\ /
\ /
F
=cut
{
package t::lib::A; use mro 'dfs';
package t::lib::B; use mro 'dfs';
package t::lib::E; use mro 'dfs';
package t::lib::C; use mro 'dfs'; use base ('t::lib::A', 't::lib::B');
package t::lib::D; use mro 'dfs'; use base ('t::lib::A', 't::lib::E');
package t::lib::F; use mro 'dfs'; use base ('t::lib::C', 't::lib::D');
}
ok(eq_array(
mro::get_linear_isa('t::lib::F'),
[ qw(t::lib::F t::lib::C t::lib::A t::lib::B t::lib::D t::lib::E) ]
), '... got the right MRO for t::lib::F');
|
