Use MRO::Compat in Class::MOP. The C3 test already checks this behavior
Yuval Kogman [Tue, 15 Apr 2008 21:33:27 +0000 (21:33 +0000)]
lib/Class/MOP.pm
lib/Class/MOP/Class.pm

index b8d6808..f44f17a 100644 (file)
@@ -4,6 +4,8 @@ package Class::MOP;
 use strict;
 use warnings;
 
+use MRO::Compat;
+
 use Carp         'confess';
 use Scalar::Util 'weaken';
 
index d2c9eef..68c3d47 100644 (file)
@@ -507,13 +507,7 @@ sub subclasses {
 
 
 sub linearized_isa {
-    if (Class::MOP::IS_RUNNING_ON_5_10()) {
-        return @{ mro::get_linear_isa( (shift)->name ) };
-    }
-    else {
-        my %seen;
-        return grep { !($seen{$_}++) } (shift)->class_precedence_list;
-    }
+    return @{ mro::get_linear_isa( (shift)->name ) };
 }
 
 sub class_precedence_list {