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

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

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->body($c->session->{value});
}

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