t/lib/CookieTestApp/Controller/Root.pm

   1 package # PAUSE HIDE
   2     CookieTestApp::Controller::Root;
   3 use strict;
   4 use warnings;
   5
   6 use base qw/Catalyst::Controller/;
   7
   8 __PACKAGE__->config( namespace => '' );
   9
  10 sub page : Local {
  11     my ( $self, $c ) = @_;
  12     $c->res->body( "Hi! hit number " . ++$c->session->{counter} );
  13 }
  14
  15 sub stream : Local {
  16     my ( $self, $c ) = @_;
  17     my $count = ++$c->session->{counter};
  18     $c->res->write("hit number ");
  19     $c->res->write($count);
  20 }
  21
  22 sub deleteme : Local {
  23     my ( $self, $c ) = @_;
  24     my $id = $c->get_session_id;
  25     $c->delete_session;
  26     my $id2 = $c->get_session_id;
  27     $c->res->body( $id ne ( $id2 || '' ) );
  28 }
  29
  30 1;