[Catalyst-commits] r7855 - in
trunk/CatalystX-Imports/t/lib/TestApp: Controller Model
rafl at dev.catalyst.perl.org
rafl at dev.catalyst.perl.org
Thu May 29 14:00:55 BST 2008
Author: rafl
Date: 2008-05-29 14:00:55 +0100 (Thu, 29 May 2008)
New Revision: 7855
Modified:
trunk/CatalystX-Imports/t/lib/TestApp/Controller/Basic.pm
trunk/CatalystX-Imports/t/lib/TestApp/Controller/Vars.pm
trunk/CatalystX-Imports/t/lib/TestApp/Model/TestAC.pm
Log:
Remove tailing whitespace in t.
Modified: trunk/CatalystX-Imports/t/lib/TestApp/Controller/Basic.pm
===================================================================
--- trunk/CatalystX-Imports/t/lib/TestApp/Controller/Basic.pm 2008-05-29 13:00:44 UTC (rev 7854)
+++ trunk/CatalystX-Imports/t/lib/TestApp/Controller/Basic.pm 2008-05-29 13:00:55 UTC (rev 7855)
@@ -4,8 +4,8 @@
use base 'TestApp::Controller';
-use CatalystX::Imports Vars => 1, Context => {
- Default => ':all',
+use CatalystX::Imports Vars => 1, Context => {
+ Default => ':all',
Config => [
'config_test',
{ alias_test1 => 'config_test_alias1',
@@ -13,7 +13,7 @@
] };
our $PROTOTYPE_TEST;
-BEGIN {
+BEGIN {
no strict 'refs';
$PROTOTYPE_TEST = prototype \&prototype_test;
}
@@ -41,9 +41,9 @@
sub test_action: Chained('base') {
my ($self, $c) = @_;
$c->res->body(
- join( '; ',
- action,
- action('base'),
+ join( '; ',
+ action,
+ action('base'),
action('/basic/base'),
ref(action('base')),
),
Modified: trunk/CatalystX-Imports/t/lib/TestApp/Controller/Vars.pm
===================================================================
--- trunk/CatalystX-Imports/t/lib/TestApp/Controller/Vars.pm 2008-05-29 13:00:44 UTC (rev 7854)
+++ trunk/CatalystX-Imports/t/lib/TestApp/Controller/Vars.pm 2008-05-29 13:00:55 UTC (rev 7855)
@@ -4,7 +4,7 @@
use base 'Catalyst::Controller';
-use CatalystX::Imports
+use CatalystX::Imports
Context => ':all',
Vars => { Stash => [qw( $foo @bar %baz )] };
Modified: trunk/CatalystX-Imports/t/lib/TestApp/Model/TestAC.pm
===================================================================
--- trunk/CatalystX-Imports/t/lib/TestApp/Model/TestAC.pm 2008-05-29 13:00:44 UTC (rev 7854)
+++ trunk/CatalystX-Imports/t/lib/TestApp/Model/TestAC.pm 2008-05-29 13:00:55 UTC (rev 7855)
@@ -2,7 +2,7 @@
use warnings;
use strict;
-sub new {
+sub new {
my $class = shift;
return bless { @_ }, $class;
}
More information about the Catalyst-commits
mailing list