[Bast-commits] r9587 - Class-C3-Componentised/branches/apply_actions/lib/Class/C3

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-06-23 16:34:01 +0100 (Wed, 23 Jun 2010)
New Revision: 9587

Modified:
   Class-C3-Componentised/branches/apply_actions/lib/Class/C3/Componentised.pm
Log:
swap invocant for *_APPLY based on tests

Modified: Class-C3-Componentised/branches/apply_actions/lib/Class/C3/Componentised.pm
===================================================================
--- Class-C3-Componentised/branches/apply_actions/lib/Class/C3/Componentised.pm	2010-06-23 03:55:14 UTC (rev 9586)
+++ Class-C3-Componentised/branches/apply_actions/lib/Class/C3/Componentised.pm	2010-06-23 15:34:01 UTC (rev 9587)
@@ -174,11 +174,11 @@
     foreach my $to (reverse @to_inject) {
       unless ($target eq $to || $target->isa($to)) {
          if (my $fn = $Class::C3::Componentised::LoadActions::Before{$to}) {
-            $to->$fn($target)
+            $target->$fn($to)
          }
          unshift ( @{"${target}::ISA"}, $to );
          if (my $fn = $Class::C3::Componentised::LoadActions::After{$to}) {
-            $to->$fn($target)
+            $target->$fn($to)
          }
       }
     }