Use MRO::Compat instead of Class::ISA to DRTR for C3 vs. non-C3 classes

diff --git a/Changes b/Changes
index 0cc49e0..62d921d 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Class::Accessor::Grouped.
 
+0.06000 Fri May 11 22:00:26 2007
+    - get_super_paths now uses mro::get_linear_isa to DTRT under C3
+
 0.05002 Fri May 11 20:46:16 2007
     - killed Class::Inspector->installed warnings
 

diff --git a/Makefile.PL b/Makefile.PL
index c4c4384..1dd862a 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -10,7 +10,7 @@ all_from 'lib/Class/Accessor/Grouped.pm';
 
 requires 'Carp';
 requires 'Scalar::Util';
-requires 'Class::ISA';
+requires 'MRO::Compat';
 requires 'Class::Inspector';
 
 tests "t/*.t t/*/*.t";

diff --git a/lib/Class/Accessor/Grouped.pm b/lib/Class/Accessor/Grouped.pm
index e1c3f84..051b70c 100644 (file)
--- a/lib/Class/Accessor/Grouped.pm
+++ b/lib/Class/Accessor/Grouped.pm
@@ -3,12 +3,12 @@ use strict;
 use warnings;
 use Carp;
 use Class::Inspector ();
-use Class::ISA ();
 use Scalar::Util qw/reftype blessed/;
+use MRO::Compat;
 
 use vars qw($VERSION);
 
-$VERSION = '0.05002';
+$VERSION = '0.06000';
 
 =head1 NAME
 
@@ -428,7 +428,7 @@ Returns a list of 'parent' or 'super' class names that the current class inherit
 sub get_super_paths {
     my $class = blessed $_[0] || $_[0];
 
-    return Class::ISA::super_path($class);
+    return @{mro::get_linear_isa($class)};
 };
 
 1;