5 use Test::More tests => 5;
12 package AAA; our @ISA = qw//;
13 package BBB; our @ISA = qw/AAA/;
14 package CCC; our @ISA = qw/AAA/;
15 package DDD; our @ISA = qw/AAA/;
16 package EEE; our @ISA = qw/BBB CCC DDD/;
17 package FFF; our @ISA = qw/EEE DDD/;
18 package GGG; our @ISA = qw/FFF/;
22 mro::get_linear_isa('GGG'),
23 [ 'GGG', 'FFF', 'EEE', 'BBB', 'AAA', 'CCC', 'DDD' ]
27 [mro::get_isarev('GGG')],
32 [mro::get_isarev('DDD')],
33 [ 'EEE', 'FFF', 'GGG' ],
37 [mro::get_isarev('AAA')],
38 [ 'BBB', 'CCC', 'DDD', 'EEE', 'FFF', 'GGG' ],