allow nested under { } blocks

[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 4a5091a..338d00f 100644 (file)
--- a/t/lib/TestApp/Controller/Foo.pm
+++ b/t/lib/TestApp/Controller/Foo.pm
@@ -91,5 +91,29 @@ controller TestApp::Controller::Foo {
         $ctx->response->body($str);
     }
 
+
+    #
+    #   subnamespacing
+    #
+
+    action lower under base;
+
+    under lower {
+
+        action down;
+
+        under down {
+
+            action the;
+
+            under the {
+
+                action stream is final {
+                    $ctx->response->body(23);
+                }
+            }
+        }
+    }
+
 }