[Catalyst-commits] r11635 - in Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller: . Action

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Mon Oct 19 17:03:00 GMT 2009


Author: t0m
Date: 2009-10-19 17:02:59 +0000 (Mon, 19 Oct 2009)
New Revision: 11635

Modified:
   Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Private.pm
   Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Dump.pm
Log:
Remove warnings from duplicate action declerations

Modified: Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Private.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Private.pm	2009-10-19 16:54:08 UTC (rev 11634)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Private.pm	2009-10-19 17:02:59 UTC (rev 11635)
@@ -8,27 +8,27 @@
     $c->res->output('access denied');
 }
 
-sub one : Private { 
+sub one : Private {
     my ( $self, $c ) = @_;
     $c->res->output('access allowed');
 }
 
-sub two : Private Relative {
+sub two : Private {
     my ( $self, $c ) = @_;
     $c->res->output('access allowed');
 }
 
-sub three : Private Absolute {
+sub three : Private {
     my ( $self, $c ) = @_;
     $c->res->output('access allowed');
 }
 
-sub four : Private Path('/action/private/four') {
+sub four : Private {
     my ( $self, $c ) = @_;
     $c->res->output('access allowed');
 }
 
-sub five : Private Path('five') {
+sub five : Private {
     my ( $self, $c ) = @_;
     $c->res->output('access allowed');
 }

Modified: Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Dump.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Dump.pm	2009-10-19 16:54:08 UTC (rev 11634)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Dump.pm	2009-10-19 17:02:59 UTC (rev 11635)
@@ -3,7 +3,7 @@
 use strict;
 use base 'Catalyst::Controller';
 
-sub default : Action Private {
+sub default : Action {
     my ( $self, $c ) = @_;
     $c->forward('TestApp::View::Dump');
 }




More information about the Catalyst-commits mailing list