6 require q(./test.pl); plan(tests => 8);
16 our @ISA = qw/MRO_A MRO_B MRO_C/;
18 our @ISA = qw/MRO_A MRO_B MRO_C/;
20 our @ISA = qw/MRO_D MRO_E/;
23 is(mro::get_mro('MRO_F'), 'dfs');
25 mro::get_linear_isa('MRO_F'),
26 [qw/MRO_F MRO_D MRO_A MRO_B MRO_C MRO_E/]
28 mro::set_mro('MRO_F', 'c3');
29 is(mro::get_mro('MRO_F'), 'c3');
31 mro::get_linear_isa('MRO_F'),
32 [qw/MRO_F MRO_D MRO_E MRO_A MRO_B MRO_C/]
35 my @isarev = sort { $a cmp $b } mro::get_isarev('MRO_B');
38 [qw/MRO_D MRO_E MRO_F/]
41 ok(!mro::is_universal('MRO_B'));
43 @UNIVERSAL::ISA = qw/MRO_F/;
44 ok(mro::is_universal('MRO_B'));
47 ok(mro::is_universal('MRO_B'));