Fix everything but visit is broken

[catagits/Catalyst-View-Component-SubInclude.git] / t / ESITest / lib / ESITest / Controller / Root.pm

diff --git a/t/ESITest/lib/ESITest/Controller/Root.pm b/t/ESITest/lib/ESITest/Controller/Root.pm
index 41b0ee8..78b78c8 100644 (file)
--- a/t/ESITest/lib/ESITest/Controller/Root.pm
+++ b/t/ESITest/lib/ESITest/Controller/Root.pm
@@ -16,7 +16,39 @@ sub base : Chained('/') PathPart('') CaptureArgs(0) {
 
 sub time_include : Chained('base') PathPart('time') Args(0) {
     my ( $self, $c ) = @_;
+    my $params = $c->req->params;
+
+    $c->stash->{current_time} = localtime();
+    
+    my $additional = '';
+    for my $key (keys %$params) {
+        $additional .= "| $key = $params->{$key} | "
+    }
+
+    $c->stash->{additional} = $additional;
+    
+}
+
+sub capture : Chained('base') PathPart('') CaptureArgs(1) {
+    my ( $self, $c, $arg ) = @_;
+    $c->log->debug("Capture: $arg");
+    $c->stash->{additional} = "Arg: $arg";
+}
+
+sub time_args : Chained('capture') PathPart('time') Args(0) {
+    my ( $self, $c ) = @_;
+    my $params = $c->req->params;
+
     $c->stash->{current_time} = localtime();
+
+    my $additional = $c->stash->{additional};
+    for my $key (keys %$params) {
+        $additional .= "| $key = $params->{$key} | "
+    }
+
+    $c->stash->{additional} = $additional;
+
+    $c->stash->{template} = 'time_include.tt';
 }
 
 sub end : ActionClass('RenderView') {}