[catagits/Catalyst-Plugin-Session.git] / t / lib / SessionValid / Controller / Root.pm

package SessionValid::Controller::Root;
use strict;
use warnings;
use Data::Dumper;

use base qw/Catalyst::Controller/;

__PACKAGE__->config( namespace => '' );

sub index :Path :Args(0) {
    my ( $self, $c ) = @_;
    $c->session->{'value'} = 'value set';
    $c->session_is_valid;
    $c->res->output($c->session->{'value'});
}

1;
Commit	Line	Data
3c2ec899	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;