[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