[Catalyst-commits] r10505 - in Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still: . gsoc lib/Catalyst share share/root t t/lib

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Thu Jun 11 23:58:20 GMT 2009


Author: t0m
Date: 2009-06-11 23:58:20 +0000 (Thu, 11 Jun 2009)
New Revision: 10505

Added:
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/Makefile.PL.tt
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/check_invocation.t
Removed:
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/TestAppForInvocation/
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/changes.tt
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/config.tt
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/lib/
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/makefile.tt
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/readme.tt
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_120x50_built.png.bin
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_120x50_built_shadow.png.bin
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_120x50_powered.png.bin
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_120x50_powered_shadow.png.bin
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_88x31_built.png.bin
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_88x31_built_shadow.png.bin
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_88x31_powered.png.bin
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_88x31_powered_shadow.png.bin
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/catalyst_logo.png.bin
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/favicon.ico.bin
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/static/
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/script/
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/t/
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/lib/MyTestHelper.pm
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/version
Modified:
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/gsoc/donelist.txt
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/gsoc/gsoc-devel-plan-5-23.txt
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/lib/Catalyst/Helper.pm
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/back_compat.t
   Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/check_testapp_the_same.t
Log:
Merge HEAD:10428, less fucked

Modified: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/gsoc/donelist.txt
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/gsoc/donelist.txt	2009-06-11 23:57:38 UTC (rev 10504)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/gsoc/donelist.txt	2009-06-11 23:58:20 UTC (rev 10505)
@@ -13,5 +13,3 @@
 pulling data out of the __DATA__ section.
 6. Drafted an RFC for more comments on progression of C::H API
 7. Also using added Path::Class for file reading
-as of 6-9-09
-1. backwards compatibility tests pass

Modified: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/gsoc/gsoc-devel-plan-5-23.txt
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/gsoc/gsoc-devel-plan-5-23.txt	2009-06-11 23:57:38 UTC (rev 10504)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/gsoc/gsoc-devel-plan-5-23.txt	2009-06-11 23:58:20 UTC (rev 10505)
@@ -90,21 +90,18 @@
 16:03 <t0m> and the ones which can't get deprecated, but preserved.
 16:04 <dhoss> so that's just for the current get_file, right? 
 16:04 <t0m> yy
-########################################################################
-## done
-16:04 <t0m>     $self->copy_share_file(                                 
+16:04 <t0m>     $self->copy_share_file(
 16:04 <t0m>         'favicon.ico',
 16:04 <t0m>         File::Spec->catfile( $self->{root}, "favicon.ico" )
 16:04 <t0m>     );
-#########################################################################
 16:05 <t0m> more like it
 16:05 <t0m> so we have sub mk_foo { shift->generate_foo(@_); }
 
 ====
 5-28
-03:04 < dhoss> SO. official next step: 1) #done trim crap out 2) #done write test for how 
+03:04 < dhoss> SO. official next step: 1) trim crap out 2) write test for how 
                helpers are invoking Catalyst::Helper 3)??? 4) profit!
-03:05 < t0m> 3)#done Re arrange files in sharedir so we can make the comversion guts 
+03:05 < t0m> 3) Re arrange files in sharedir so we can make the comversion guts 
              totally generic
 03:05 < t0m> 4) merge&profit
 03:05 < t0m> *conversion
@@ -118,59 +115,5 @@
                the one in topic
 03:06 < t0m> cause then the entire generate application becomes 'copy this 
              directory from X => Y, applying some file mangling rules)
-             
-=============================================================================
-04:26 < t0m> dhoss: erm, yeah - so the two things to do is: unit tests for the 
-             methods like get_file which we're not actually using any more..
-04:27 < t0m> (do that by making t/lib/ExampleHelper.pm - copy the TT one from 
-             CPAN or something, and then write some tests that get_file can 
-             successfully pull chunks out the __DATA__ segment
-04:28 < t0m> and rename everything in the sharedir to be named as-per where it 
-             ends up in your app, but suffixed by .tt or .bin
-04:29 < t0m> e.g. share/Makefile.PL.tt share/root/favicon.ico.bin 
-             share/lib/MyApp.pm.tt
-04:30 < t0m> the exact reasons for this nameing scheme become aparent post 
-             first merge, when we remove most of the code :)
-04:30 < t0m> but all of share/ needs to be in it's final resting place pre-merge
-04:31 < marcus> http://lumberjaph.net/blog/index.php/2009/05/30/catalystxdispatcherasgraph/ # <3 lazyweb
-04:31 < t0m> so tests the stuff we're no longer using in Helper.pm (e.g. 
-             get_file) still works. Rename share/ bits
-04:31 < t0m> marcus: Indeed :)
-04:31 < t0m> ^^ those two, then first merge.
-23:36 <@kd> dhoss: just found a bug in ::Devel ...
-23:36 <@kd> we're using #!/usr/bin/env perl now
-23:36 <@kd> that means we have to add the use warnings; pragma beneath it
-23:37 <@kd> that doesn't appear to be happeining in the scripts
-23:37 <@kd> please fix
-23:38 <@kd> dhoss: i.e. http://gist.github.com/122081
-==============================================================================
 
-# DONE
-1. Rename everything into final layout:
-  . tt files all named .tt
-  . none tt files all named .bin
-  . directory structure as generated, e.g. share/lib/MyApp.pm.tt, share/root/favicon.ico.bin
 
-2. get new layout working
-
-
-# DONE
-3. get tests for back compat - i.e. the methods no longer used in Helper.pm like 'get_file'
-  . copy Catalyst::Helper::View::TT into t/lib/TestBackCompat.pm
-  . write test t/deprecated_methods_backcompat.t which says:
-     use FindBin qw/$Bin/;
-     use lib "$Bin/lib";
-     use Test::More tests => 1;
-
-     my $helper = TestBackCompat->new( %maybe_some_params_here );
-     my $a_section = $helper->get_file('FileName');
-     is $a_section, 'FILECONTENTSFROM__DATA__';
-
-3. RFC - DONE
-
-Looking ahead
-
-MooseX::Getopt
-
-
-

Modified: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/lib/Catalyst/Helper.pm	2009-06-11 23:57:38 UTC (rev 10504)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/lib/Catalyst/Helper.pm	2009-06-11 23:58:20 UTC (rev 10505)
@@ -15,10 +15,7 @@
 use Catalyst::Exception;
 use Path::Class qw/dir file/;
 use File::ShareDir qw/dist_dir/;
-use Moose;
-use aliased 'Path::Class::Dir';
 
-
 my %cache;
 
 =head1 NAME
@@ -35,15 +32,8 @@
 
 sub get_sharedir_file {
     my ($self, @filename) = @_;
-    my $dist_dir;
-    if (-d "inc/.author") { # Can't use sharedir if we're in a checkout
-                            # this feels horrible, better ideas?
-        $dist_dir = 'share';
-    }
-    else {
-        $dist_dir = dist_dir('Catalyst-Devel');
-    }
-    my $file = file( $dist_dir, @filename);
+    my $file = file( dist_dir('Catalyst-Devel'), @filename);
+    warn $file;
     my $contents = $file->slurp;
     return $contents;
 }
@@ -226,7 +216,7 @@
 
 sub mk_file {
     my ( $self, $file, $content ) = @_;
-    if ( -e $file && -s _ ) {
+    if ( -e $file ) {
         print qq/ exists "$file"\n/;
         return 0
           unless ( $self->{'.newfiles'}
@@ -271,30 +261,17 @@
 }
 
 # Do not touch this method, *EVER*, it is needed for back compat.
-## addendum: we had to split this method so we could have backwards
-## compatability.  otherwise, we'd have no way to pass stuff from __DATA__ 
 
 sub render_file {
     my ( $self, $file, $path, $vars ) = @_;
-    my $template = $self->get_file( ( caller(0) )[0], $file );
-    $self->render_file_contents($template, $path, $vars);
-}
-
-sub render_sharedir_file {
-    my ( $self, $file, $path, $vars ) = @_;
-    my $template = $self->get_sharedir_file( $file );
-    $self->render_file_contents($template, $path, $vars);
-}
-
-sub render_file_contents {
-    my ( $self, $template, $path, $vars ) = @_;
     $vars ||= {};
     my $t = Template->new;
+    my $template = $self->get_sharedir_file( 'root', $file );
     return 0 unless $template;
     my $output;
     $t->process( \$template, { %{$self}, %$vars }, \$output )
       || Catalyst::Exception->throw(
-        message => qq/Couldn't process "$template", / . $t->error() );
+        message => qq/Couldn't process "$file", / . $t->error() );
     $self->mk_file( $path, $output );
 }
 
@@ -361,7 +338,7 @@
     $self->{path} = File::Spec->catfile( 'lib', split( '::', $self->{name} ) );
     $self->{path} .= '.pm';
     my $dir = $self->{dir};
-    $self->render_file( 'makefile.tt', "$dir\/Makefile.PL" );
+    $self->render_file( 'Makefile.PL.tt', "$dir\/Makefile.PL" );
 
     if ( $self->{makefile} ) {
 
@@ -495,42 +472,6 @@
     }
 }
 
-
-## this is so you don't have to do make install after every change to test
-sub _find_share_dir {
-  my ($self, $args) = @_;
-  my $share_name = $self->name;
-  if ($share_name =~ s!^/(.*?)/!!) {
-    my $dist = $1;
-    $args->{share_base_dir} = eval {
-        Dir->new(File::ShareDir::dist_dir($dist))
-           ->subdir('share');
-    };
-    if ($@) {
-        # not installed
-        my $file = __FILE__;
-        my $dir = Dir->new(dirname($file));
-        my $share_base;
-        while ($dir->parent) {
-            if (-d $dir->subdir('share') && -d $dir->subdir('share')->subdir('root')) {
-                $share_base = $dir->subdir('share')->subdir('root');
-                last;
-            }
-            $dir = $dir->parent;
-        }
-        confess "could not find sharebase by recursion. ended up at $dir, from $file"
-          unless $share_base;
-        $args->{share_base_dir} = $share_base; 
-    }
-  }
-  my $base = $args->{share_base_dir}->subdir($share_name);
-  confess "No such share base directory ${base}"
-    unless -d $base;
-  $self->share_dir($base);
-};
-
-
-
 =head1 DESCRIPTION
 
 This module is used by B<catalyst.pl> to create a set of scripts for a

Copied: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/Makefile.PL.tt (from rev 10454, Catalyst-Devel/1.00/branches/helper_refactor/share/makefile.tt)
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/Makefile.PL.tt	                        (rev 0)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/Makefile.PL.tt	2009-06-11 23:58:20 UTC (rev 10505)
@@ -0,0 +1,20 @@
+[% startperl %]
+# IMPORTANT: if you delete this file your app will not work as
+# expected.  You have been warned.
+use inc::Module::Install;
+
+name '[% dir %]';
+all_from '[% path %]';
+
+requires 'Catalyst::Runtime' => '[% catalyst_version %]';
+requires 'Catalyst::Plugin::ConfigLoader';
+requires 'Catalyst::Plugin::Static::Simple';
+requires 'Catalyst::Action::RenderView';
+requires 'parent';
+requires 'Config::General'; # This should reflect the config file format you've chosen
+                 # See Catalyst::Plugin::ConfigLoader for supported formats
+catalyst;
+
+install_script glob('script/*.pl');
+auto_install;
+WriteAll;

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/changes.tt
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/changes.tt	2009-06-11 23:57:38 UTC (rev 10504)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/changes.tt	2009-06-11 23:58:20 UTC (rev 10505)
@@ -1,4 +0,0 @@
-This file documents the revision history for Perl extension [% name %].
-
-0.01  [% time %]
-        - initial revision, generated by Catalyst

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/config.tt
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/config.tt	2009-06-11 23:57:38 UTC (rev 10504)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/config.tt	2009-06-11 23:58:20 UTC (rev 10505)
@@ -1,3 +0,0 @@
-# rename this file to [% name %].yml and put a ':' in front of 'name' if
-# you want to use YAML like in old versions of Catalyst
-name [% name %]

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/makefile.tt
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/makefile.tt	2009-06-11 23:57:38 UTC (rev 10504)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/makefile.tt	2009-06-11 23:58:20 UTC (rev 10505)
@@ -1,20 +0,0 @@
-[% startperl %]
-# IMPORTANT: if you delete this file your app will not work as
-# expected.  You have been warned.
-use inc::Module::Install;
-
-name '[% dir %]';
-all_from '[% path %]';
-
-requires 'Catalyst::Runtime' => '[% catalyst_version %]';
-requires 'Catalyst::Plugin::ConfigLoader';
-requires 'Catalyst::Plugin::Static::Simple';
-requires 'Catalyst::Action::RenderView';
-requires 'parent';
-requires 'Config::General'; # This should reflect the config file format you've chosen
-                 # See Catalyst::Plugin::ConfigLoader for supported formats
-catalyst;
-
-install_script glob('script/*.pl');
-auto_install;
-WriteAll;

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/readme.tt
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/readme.tt	2009-06-11 23:57:38 UTC (rev 10504)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/readme.tt	2009-06-11 23:58:20 UTC (rev 10505)
@@ -1 +0,0 @@
-Run script/[% appprefix %]_server.pl to test the application.

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_120x50_built.png.bin
===================================================================
(Binary files differ)

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_120x50_built_shadow.png.bin
===================================================================
(Binary files differ)

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_120x50_powered.png.bin
===================================================================
(Binary files differ)

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_120x50_powered_shadow.png.bin
===================================================================
(Binary files differ)

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_88x31_built.png.bin
===================================================================
(Binary files differ)

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_88x31_built_shadow.png.bin
===================================================================
(Binary files differ)

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_88x31_powered.png.bin
===================================================================
(Binary files differ)

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/btn_88x31_powered_shadow.png.bin
===================================================================
(Binary files differ)

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/catalyst_logo.png.bin
===================================================================
(Binary files differ)

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/share/root/favicon.ico.bin
===================================================================
(Binary files differ)

Modified: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/back_compat.t
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/back_compat.t	2009-06-11 23:57:38 UTC (rev 10504)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/back_compat.t	2009-06-11 23:58:20 UTC (rev 10505)
@@ -21,20 +21,13 @@
 is $example1, 'foobar[% test_var %]';
 is $example2, 'bazquux';
 
-package MyTestHelper;
-
-use Test::More;
-use File::Temp qw/tempfile/;
-
 my ($fh, $fn) = tempfile;
-close $fh;
-$helper->render_file('example1',  $fn, { test_var => 'test_val' });
-open $fh, $fn or die $@;
-#seek $fh, 0, 0; # Rewind
+$helper->render_file($fn,  { test_var => 'test_val' });
+seek $fh, 0, 0; # Rewind
 my $contents;
 {
     local $/; 
     $contents = <$fh>;
 }
 warn $contents;
-is $contents, "foobartest_val\n";
+is $contents, 'foobartest_val';

Copied: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/check_invocation.t (from rev 10480, Catalyst-Devel/1.00/branches/helper_refactor/t/check_invocation.t)
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/check_invocation.t	                        (rev 0)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/check_invocation.t	2009-06-11 23:58:20 UTC (rev 10505)
@@ -0,0 +1,32 @@
+use strict;
+use warnings;
+
+use FindBin qw/$Bin/;
+use Test::More tests => 1;
+
+use lib "$Bin/../lib";
+
+use Catalyst::Helper;
+
+my $force    = 0;
+my $help     = 0;
+my $makefile = 0;
+my $scripts  = 0;
+my $short    = 0;
+
+my $helper = Catalyst::Helper->new(
+    {
+        '.newfiles' => !$force,
+        'makefile'  => $makefile,
+        'scripts'   => $scripts,
+        'short'     => $short,
+    }
+);
+
+sub mk_compclass {
+    my ( $self, $helper ) = @_;
+    my $file = $helper->{file};
+    $helper->render_file( 'compclass.tt', $file );
+}
+
+ok( $helper->mk_app("TestAppForInvocation"), "app invocation still works");

Modified: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/check_testapp_the_same.t
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/check_testapp_the_same.t	2009-06-11 23:57:38 UTC (rev 10504)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/check_testapp_the_same.t	2009-06-11 23:58:20 UTC (rev 10505)
@@ -19,7 +19,7 @@
  
     my $diff;
     eval {
-        $diff = `diff -urNB -x .svn -x Changes $Bin/TestAppForComparison $Bin/../TestAppForComparison`;
+        $diff = `diff -urN -x .svn -x Changes $Bin/TestAppForComparison $Bin/../TestAppForComparison`;
     };
     
     skip "no diff program installed, skipping", 1 if $@;

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/lib/MyTestHelper.pm
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/lib/MyTestHelper.pm	2009-06-11 23:57:38 UTC (rev 10504)
+++ Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/t/lib/MyTestHelper.pm	2009-06-11 23:58:20 UTC (rev 10505)
@@ -1,15 +0,0 @@
-package MyTestHelper;
-use base qw/Catalyst::Helper/;
-
-sub example_render {
-    my ($self, $fn, $vars) = @_;
-    $self->render_file('example1', $fn, $vars);
-}
-
-1;
-
-__DATA__
-__example1__
-foobar[% test_var %]
-__example2__
-bazquux

Deleted: Catalyst-Devel/1.00/branches/helper_refactor_actuall_passing_the_fucking_tests_still/version
===================================================================




More information about the Catalyst-commits mailing list