t/lib/SessionValid/Controller/Root.pm

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