[Catalyst-commits] r10304 - in Catalyst-Plugin-PluginLoader/1.000/trunk: . lib/Catalyst/Plugin

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-26 23:26:14 +0000 (Tue, 26 May 2009)
New Revision: 10304

Modified:
   Catalyst-Plugin-PluginLoader/1.000/trunk/Changes
   Catalyst-Plugin-PluginLoader/1.000/trunk/lib/Catalyst/Plugin/PluginLoader.pm
Log:
change to class_precedence_list which is likely more correct than mro::get_linear_isa

Modified: Catalyst-Plugin-PluginLoader/1.000/trunk/Changes
===================================================================
--- Catalyst-Plugin-PluginLoader/1.000/trunk/Changes	2009-05-26 22:46:25 UTC (rev 10303)
+++ Catalyst-Plugin-PluginLoader/1.000/trunk/Changes	2009-05-26 23:26:14 UTC (rev 10304)
@@ -1,10 +1,14 @@
 Revision history for Perl extension Catalyst::Plugin::PluginLoader
 
+0.04  2009-05-26 23:23:47
+    - change to Class::MOP::Class::class_precedence_list which is probably
+      even better
+
 0.03  2009-05-22 13:00:13
-	- change method dispatcher to mro::get_linear_isa which is more correct
+    - change method dispatcher to mro::get_linear_isa which is more correct
 
 0.02  2009-05-17 21:44:05
-	- some initial role support
+    - some initial role support
 
 0.01  2009-05-12 12:30:33
-	- first release
+    - first release

Modified: Catalyst-Plugin-PluginLoader/1.000/trunk/lib/Catalyst/Plugin/PluginLoader.pm
===================================================================
--- Catalyst-Plugin-PluginLoader/1.000/trunk/lib/Catalyst/Plugin/PluginLoader.pm	2009-05-26 22:46:25 UTC (rev 10303)
+++ Catalyst-Plugin-PluginLoader/1.000/trunk/lib/Catalyst/Plugin/PluginLoader.pm	2009-05-26 23:26:14 UTC (rev 10304)
@@ -9,7 +9,7 @@
 
 use namespace::clean -except => 'meta';
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 =head1 NAME
 
@@ -89,9 +89,9 @@
 
     {
 # ->next::method won't work anymore, we have to do it ourselves
-      my @isa = @{ mro::get_linear_isa($class) };
+      my @precedence_list = $class->meta->class_precedence_list;
 
-      1 while shift @isa ne __PACKAGE__;
+      1 while shift @precedence_list ne __PACKAGE__;
 
       my $old_next_method = \&maybe::next::method;
 
@@ -101,7 +101,7 @@
         }
 
         my $code;
-        while (my $next_class = shift @isa) {
+        while (my $next_class = shift @precedence_list) {
           $code = $next_class->can('setup');
           last if $code;
         }