Prep for new release

[catagits/Catalyst-Plugin-Session-State-Cookie.git] / t / lib / CookieTestApp / Controller / Root.pm

diff --git a/t/lib/CookieTestApp/Controller/Root.pm b/t/lib/CookieTestApp/Controller/Root.pm
new file mode 100644 (file)
index 0000000..827ac90
--- /dev/null
+++ b/t/lib/CookieTestApp/Controller/Root.pm
@@ -0,0 +1,30 @@
+package # PAUSE HIDE
+    CookieTestApp::Controller::Root;
+use strict;
+use warnings;
+
+use base qw/Catalyst::Controller/;
+
+__PACKAGE__->config( namespace => '' );
+
+sub page : Local {
+    my ( $self, $c ) = @_;
+    $c->res->body( "Hi! hit number " . ++$c->session->{counter} );
+}
+
+sub stream : Local {
+    my ( $self, $c ) = @_;
+    my $count = ++$c->session->{counter};
+    $c->res->write("hit number ");
+    $c->res->write($count);
+}
+
+sub deleteme : Local {
+    my ( $self, $c ) = @_;
+    my $id = $c->get_session_id;
+    $c->delete_session;
+    my $id2 = $c->get_session_id;
+    $c->res->body( $id ne ( $id2 || '' ) );
+}
+
+1;