[Catalyst-commits] r10512 - Catalyst-Devel/1.00/branches/helper_refactor/share/root

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Fri Jun 12 00:47:18 GMT 2009


Author: t0m
Date: 2009-06-12 00:47:18 +0000 (Fri, 12 Jun 2009)
New Revision: 10512

Removed:
   Catalyst-Devel/1.00/branches/helper_refactor/share/root/compclass.tt
   Catalyst-Devel/1.00/branches/helper_refactor/share/root/comptest.tt
Log:
Stuff removal from root/ finished

Deleted: Catalyst-Devel/1.00/branches/helper_refactor/share/root/compclass.tt
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/share/root/compclass.tt	2009-06-12 00:46:25 UTC (rev 10511)
+++ Catalyst-Devel/1.00/branches/helper_refactor/share/root/compclass.tt	2009-06-12 00:47:18 UTC (rev 10512)
@@ -1,42 +0,0 @@
-package [% class %];
-
-use strict;
-use warnings;
-use parent 'Catalyst::[% long_type %]';
-
-=head1 NAME
-
-[% class %] - Catalyst [% long_type %]
-
-=head1 DESCRIPTION
-
-Catalyst [% long_type %].
-[% IF long_type == 'Controller' %]
-=head1 METHODS
-
-=cut
-
-
-=head2 index
-
-=cut
-
-sub index :Path :Args(0) {
-    my ( $self, $c ) = @_;
-
-    $c->response->body('Matched [% class %] in [%name%].');
-}
-
-[% END %]
-=head1 AUTHOR
-
-[%author%]
-
-=head1 LICENSE
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
-1;

Deleted: Catalyst-Devel/1.00/branches/helper_refactor/share/root/comptest.tt
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/share/root/comptest.tt	2009-06-12 00:46:25 UTC (rev 10511)
+++ Catalyst-Devel/1.00/branches/helper_refactor/share/root/comptest.tt	2009-06-12 00:47:18 UTC (rev 10512)
@@ -1,23 +0,0 @@
-use strict;
-use warnings;
-[% IF long_type == 'Controller' %][% IF mech %]use Test::More;
-
-eval "use Test::WWW::Mechanize::Catalyst '[% app %]'";
-plan $@
-    ? ( skip_all => 'Test::WWW::Mechanize::Catalyst required' )
-    : ( tests => 2 );
-
-ok( my $mech = Test::WWW::Mechanize::Catalyst->new, 'Created mech object' );
-
-$mech->get_ok( 'http://localhost[% uri %]' );
-[% ELSE %]use Test::More tests => 3;
-
-BEGIN { use_ok 'Catalyst::Test', '[% app %]' }
-BEGIN { use_ok '[% class %]' }
-
-ok( request('[% uri %]')->is_success, 'Request should succeed' );
-[% END %]
-[% ELSE %]use Test::More tests => 1;
-
-BEGIN { use_ok '[% class %]' }
-[% END %]




More information about the Catalyst-commits mailing list