t/lib/SessionValid/Controller/Root.pm

   1 package SessionValid::Controller::Root;
   2 use strict;
   3 use warnings;
   4
   5 use base qw/Catalyst::Controller/;
   6
   7 __PACKAGE__->config( namespace => '' );
   8
   9 sub index :Path :Args(0) {
  10     my ( $self, $c ) = @_;
  11     $c->session('value' => 'value set');
  12     $c->session_is_valid;
  13     $c->res->body($c->session->{value});
  14 }
  15
  16 1;