my $classname = shift;
die "mro::get_isarev requires a classname" if !$classname;
- sort @{__get_isarev_recurse($classname, __get_all_pkgs_with_isas(), 0)};
+ @{__get_isarev_recurse($classname, __get_all_pkgs_with_isas(), 0)};
}
=head2 mro::is_universal($classname)
);
is_deeply(
- [mro::get_isarev('GGG')],
+ [sort (mro::get_isarev('GGG'))],
[],
"get_isarev for GGG",
);
is_deeply(
- [mro::get_isarev('DDD')],
+ [sort (mro::get_isarev('DDD'))],
[ 'EEE', 'FFF', 'GGG', 'UNIVERSAL' ],
"get_isarev for DDD",
);
+
is_deeply(
- [mro::get_isarev('AAA')],
+ [sort (mro::get_isarev('AAA'))],
[ 'BBB', 'CCC', 'DDD', 'EEE', 'FFF', 'GGG', 'UNIVERSAL' ],
"get_isarev for AAA",
);