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

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2009-05-28 08:47:32 +0000 (Thu, 28 May 2009)
New Revision: 10337

Modified:
   Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm
Log:
added # Do not touch this method, *EVER*, it is needed for back compat. 
comment to respective methods


Modified: Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm	2009-05-28 08:26:39 UTC (rev 10336)
+++ Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm	2009-05-28 08:47:32 UTC (rev 10337)
@@ -28,6 +28,8 @@
 
 =cut
 
+
+
 sub get_sharedir_file {
     my ($self, @filename) = @_;
     my $file = file( dist_dir('Catalyst-Devel'), @filename);
@@ -36,6 +38,7 @@
     return $contents;
 }
 
+# Do not touch this method, *EVER*, it is needed for back compat.
 sub get_file {
     my ( $self, $class, $file ) = @_;
     unless ( $cache{$class} ) {
@@ -257,6 +260,8 @@
     return File::Spec->catfile( $dir, "$type\_$tname" );
 }
 
+# Do not touch this method, *EVER*, it is needed for back compat.
+
 sub render_file {
     my ( $self, $file, $path, $vars ) = @_;
     $vars ||= {};