From: Christopher H. Laco <claco@cpan.org>
Date: Sat, 12 May 2007 02:37:26 +0000 (+0000)
Subject: Use MRO::Compat instead of Class::ISA to DRTR for C3 vs. non-C3 classes
X-Git-Tag: v0.06000^0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8787799ca9de5f947421ea2d9e1d639f476bfcce;p=p5sagit%2FClass-Accessor-Grouped.git

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
--- 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
--- 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
--- 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;