[Bast-commits] r9586 - in Class-C3-Componentised/branches/apply_actions: lib/Class/C3/Componentised t

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-06-23 04:55:14 +0100 (Wed, 23 Jun 2010)
New Revision: 9586

Modified:
   Class-C3-Componentised/branches/apply_actions/lib/Class/C3/Componentised/LoadActions.pm
   Class-C3-Componentised/branches/apply_actions/t/03-on-apply.t
Log:
prototype to allow prettier syntax

Modified: Class-C3-Componentised/branches/apply_actions/lib/Class/C3/Componentised/LoadActions.pm
===================================================================
--- Class-C3-Componentised/branches/apply_actions/lib/Class/C3/Componentised/LoadActions.pm	2010-06-23 03:44:10 UTC (rev 9585)
+++ Class-C3-Componentised/branches/apply_actions/lib/Class/C3/Componentised/LoadActions.pm	2010-06-23 03:55:14 UTC (rev 9586)
@@ -11,7 +11,7 @@
 
 sub _curry_class {
    my ($class, $name) = @_;
-   sub { $class->$name(@_) }
+   sub (&) { $class->$name(@_) }
 }
 
 use Sub::Exporter -setup => {

Modified: Class-C3-Componentised/branches/apply_actions/t/03-on-apply.t
===================================================================
--- Class-C3-Componentised/branches/apply_actions/t/03-on-apply.t	2010-06-23 03:44:10 UTC (rev 9585)
+++ Class-C3-Componentised/branches/apply_actions/t/03-on-apply.t	2010-06-23 03:55:14 UTC (rev 9586)
@@ -15,8 +15,8 @@
 
   use Class::C3::Componentised::LoadActions;
 
-  BEFORE_APPLY sub { $awesome_robot++; $first = $awesome_robot };
-  AFTER_APPLY  sub { $awesome_robot++;  $last  = $awesome_robot };
+  BEFORE_APPLY { $awesome_robot++; $first = $awesome_robot };
+  AFTER_APPLY  { $awesome_robot++;  $last  = $awesome_robot };
 
   1;
 }