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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-22 13:01:34 +0000 (Fri, 22 May 2009)
New Revision: 10239

Modified:
   Catalyst-Plugin-PluginLoader/1.000/trunk/Changes
   Catalyst-Plugin-PluginLoader/1.000/trunk/lib/Catalyst/Plugin/PluginLoader.pm
Log:
PluginLoader - use get_linear_isa for method dispatch

Modified: Catalyst-Plugin-PluginLoader/1.000/trunk/Changes
===================================================================
--- Catalyst-Plugin-PluginLoader/1.000/trunk/Changes	2009-05-22 12:34:35 UTC (rev 10238)
+++ Catalyst-Plugin-PluginLoader/1.000/trunk/Changes	2009-05-22 13:01:34 UTC (rev 10239)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Catalyst::Plugin::PluginLoader
 
+0.03  2009-05-22 13:00:13
+	- change method dispatcher to mro::get_linear_isa which is more correct
+
 0.02  2009-05-17 21:44:05
 	- some initial role support
 

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-22 12:34:35 UTC (rev 10238)
+++ Catalyst-Plugin-PluginLoader/1.000/trunk/lib/Catalyst/Plugin/PluginLoader.pm	2009-05-22 13:01:34 UTC (rev 10239)
@@ -9,7 +9,7 @@
 
 use namespace::clean -except => 'meta';
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 =head1 NAME
 
@@ -89,7 +89,7 @@
 
     {
 # ->next::method won't work anymore, we have to do it ourselves
-      my @isa = @$isa;
+      my @isa = @{ mro::get_linear_isa($class) };
 
       1 while shift @isa ne __PACKAGE__;