nicer action sorting for Path

[catagits/Catalyst-Runtime.git] / t / lib / TestAppIndexDefault / Controller / DefaultAndPath.pm

diff --git a/t/lib/TestAppIndexDefault/Controller/DefaultAndPath.pm b/t/lib/TestAppIndexDefault/Controller/DefaultAndPath.pm
new file mode 100644 (file)
index 0000000..385361c
--- /dev/null
+++ b/t/lib/TestAppIndexDefault/Controller/DefaultAndPath.pm
@@ -0,0 +1,15 @@
+package TestAppIndexDefault::Controller::DefaultAndPath;
+
+use base 'Catalyst::Controller';
+
+sub default : Private {
+    my ($self, $c) = @_;
+    $c->res->body('default');
+}
+
+sub path_one_arg : Path('/') Args(1) {
+    my ($self, $c) = @_;
+    $c->res->body('path_one_arg');
+}
+
+1;