[Catalyst-commits] r12043 - Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-11-26 23:25:07 +0000 (Thu, 26 Nov 2009)
New Revision: 12043

Modified:
   Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm
Log:
No, it needs to be left so that other components outside devel still work

Modified: Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm	2009-11-26 23:22:25 UTC (rev 12042)
+++ Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm	2009-11-26 23:25:07 UTC (rev 12043)
@@ -185,17 +185,19 @@
                     message => qq/Couldn't load helper "$class", "$@"/ );
             }
 
-            ## must be left for back compat! ###################################
             if ( $class->can('mk_compclass') ) {
                 return 1 unless $class->mk_compclass( $self, @args );
             }
-            else { return 1 unless $self->_mk_compclass }
+            else {
+                return 1 unless $self->_mk_compclass
+            }
 
             if ( $class->can('mk_comptest') ) {
                 $class->mk_comptest( $self, @args );
             }
-            else { $self->_mk_comptest }
-            ####################################################################
+            else {
+                $self->_mk_comptest
+            }
         }
 
         # Fallback