[Bast-commits] r3309 - in trunk/Class-Accessor-Grouped: . lib/Class/Accessor

[claco at dev.catalyst.perl.org]

Author: claco
Date: 2007-05-12 03:37:26 +0100 (Sat, 12 May 2007)
New Revision: 3309

Modified:
   trunk/Class-Accessor-Grouped/Changes
   trunk/Class-Accessor-Grouped/Makefile.PL
   trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
Log:
Use MRO::Compat instead of Class::ISA to DRTR for C3 vs. non-C3 classes


Modified: trunk/Class-Accessor-Grouped/Changes
===================================================================
--- trunk/Class-Accessor-Grouped/Changes	2007-05-12 01:31:37 UTC (rev 3308)
+++ trunk/Class-Accessor-Grouped/Changes	2007-05-12 02:37:26 UTC (rev 3309)
@@ -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
 

Modified: trunk/Class-Accessor-Grouped/Makefile.PL
===================================================================
--- trunk/Class-Accessor-Grouped/Makefile.PL	2007-05-12 01:31:37 UTC (rev 3308)
+++ trunk/Class-Accessor-Grouped/Makefile.PL	2007-05-12 02:37:26 UTC (rev 3309)
@@ -10,7 +10,7 @@
 
 requires 'Carp';
 requires 'Scalar::Util';
-requires 'Class::ISA';
+requires 'MRO::Compat';
 requires 'Class::Inspector';
 
 tests "t/*.t t/*/*.t";

Modified: trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
===================================================================
--- trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2007-05-12 01:31:37 UTC (rev 3308)
+++ trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2007-05-12 02:37:26 UTC (rev 3309)
@@ -3,12 +3,12 @@
 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 @@
 sub get_super_paths {
     my $class = blessed $_[0] || $_[0];
 
-    return Class::ISA::super_path($class);
+    return @{mro::get_linear_isa($class)};
 };
 
 1;