dynamic runtime and role fixes

[catagits/CatalystX-Declare.git] / t / lib / TestApp / ControllerRole / DynamicFinal.pm

diff --git a/t/lib/TestApp/ControllerRole/DynamicFinal.pm b/t/lib/TestApp/ControllerRole/DynamicFinal.pm
new file mode 100644 (file)
index 0000000..76b32d5
--- /dev/null
+++ b/t/lib/TestApp/ControllerRole/DynamicFinal.pm
@@ -0,0 +1,31 @@
+use CatalystX::Declare;
+
+controller_role TestApp::ControllerRole::DynamicFinal (
+        Bool            :$is_final, 
+        Str             :$body, 
+        Str             :$base = "base",
+        ArrayRef[Str]   :$counters = []
+    ) {
+
+    method set_body (Object $ctx) {
+        $ctx->response->body($body);
+    }
+
+    if ($is_final) {
+
+        final action msg under $base { $self->set_body($ctx) }
+    }
+
+    else {
+
+        action msg under $base { $self->set_body($ctx) }
+    }
+
+    for my $counter (@$counters) {
+        my $count = 0;
+
+        final action "count_$counter" under $base as "counter/$counter" {
+            $ctx->response->body($count++);
+        }
+    }
+}