6 require q(./test.pl); plan(tests => 1);
10 From the parrot test t/pmc/object-meths.t
22 package t::lib::A; use mro 'dfs';
23 package t::lib::B; use mro 'dfs';
24 package t::lib::E; use mro 'dfs';
25 package t::lib::C; use mro 'dfs'; use base ('t::lib::A', 't::lib::B');
26 package t::lib::D; use mro 'dfs'; use base ('t::lib::A', 't::lib::E');
27 package t::lib::F; use mro 'dfs'; use base ('t::lib::C', 't::lib::D');
31 mro::get_linear_isa('t::lib::F'),
32 [ qw(t::lib::F t::lib::C t::lib::A t::lib::B t::lib::D t::lib::E) ]
33 ), '... got the right MRO for t::lib::F');