6 require q(./test.pl); plan(tests => 12);
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'));
49 # is_universal, get_mro, and get_linear_isa should
50 # handle non-existant packages sanely
51 ok(!mro::is_universal('Does_Not_Exist'));
52 is(mro::get_mro('Also_Does_Not_Exist'), 'dfs');
54 mro::get_linear_isa('Does_Not_Exist_Three'),
55 [qw/Does_Not_Exist_Three/]
58 # Assigning @ISA via globref
61 sub testfunc { return 123 }
62 package MRO_TestOtherBase;
63 sub testfunctwo { return 321 }
64 package MRO_M; our @ISA = qw/MRO_TestBase/;
66 *MRO_N::ISA = *MRO_M::ISA;
67 is(eval { MRO_N->testfunc() }, 123);
69 # XXX TODO (when there's a way to backtrack through a glob's aliases)
70 # push(@MRO_M::ISA, 'MRO_TestOtherBase');
71 # is(eval { MRO_N->testfunctwo() }, 321);