implemented action dispatching by type

[catagits/CatalystX-Declare.git] / t / lib / TestApp / Controller / Foo.pm

diff --git a/t/lib/TestApp/Controller/Foo.pm b/t/lib/TestApp/Controller/Foo.pm
index 89b7535..4ab42fd 100644 (file)
--- a/t/lib/TestApp/Controller/Foo.pm
+++ b/t/lib/TestApp/Controller/Foo.pm
@@ -250,5 +250,9 @@ controller ::Controller::Foo with ::TestRole {
         $ctx->response->body($x);
     }
 
+    final action wants_integer_fail (Any $x) as 'wants_integer' under base {
+        $ctx->response->body('no integer');
+    }
+
 }