[Catalyst-commits] r10089 - Catalyst-Plugin-PluginLoader/1.000/trunk/lib/Catalyst/Plugin

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-12 04:03:54 +0000 (Tue, 12 May 2009)
New Revision: 10089

Modified:
   Catalyst-Plugin-PluginLoader/1.000/trunk/lib/Catalyst/Plugin/PluginLoader.pm
Log:
minor code cleanups

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-12 02:32:19 UTC (rev 10088)
+++ Catalyst-Plugin-PluginLoader/1.000/trunk/lib/Catalyst/Plugin/PluginLoader.pm	2009-05-12 04:03:54 UTC (rev 10089)
@@ -79,19 +79,15 @@
 # ->next::method won't work anymore, we have to do it ourselves
       my @isa = @$isa;
 
-      for (0..$#isa) {
-        last if shift @isa eq __PACKAGE__;
-      }
+      1 while shift @isa ne __PACKAGE__;
 
-      my $old_next_method = *maybe::next::method{CODE};
+      my $old_next_method = \&maybe::next::method;
 
       my $next_method = sub {
         if ((caller(1))[3] !~ /::setup\z/) {
           goto &$old_next_method;
         }
 
-        my ($class) = @_;
-
         my $code;
         while (my $next_class = shift @isa) {
           $code = $next_class->can('setup');
@@ -135,4 +131,4 @@
 
 =cut
 
-1;
+1