25 our @ISA = qw/MRO_A MRO_B MRO_C/;
27 our @ISA = qw/MRO_A MRO_B MRO_C/;
29 our @ISA = qw/MRO_D MRO_E/;
32 is(mro::get_mro('MRO_F'), 'dfs');
33 is_deeply(mro::get_linear_isa('MRO_F'),
34 [qw/MRO_F MRO_D MRO_A MRO_B MRO_C MRO_E/]
36 mro::set_mro('MRO_F', 'c3');
37 is(mro::get_mro('MRO_F'), 'c3');
38 is_deeply(mro::get_linear_isa('MRO_F'),
39 [qw/MRO_F MRO_D MRO_E MRO_A MRO_B MRO_C/]
42 my @isarev = sort { $a cmp $b } mro::get_isarev('MRO_B');
44 [qw/MRO_D MRO_E MRO_F/]
47 ok(!mro::is_universal('MRO_B'));
49 @UNIVERSAL::ISA = qw/MRO_F/;
50 ok(mro::is_universal('MRO_B'));
53 ok(mro::is_universal('MRO_B'));