erver_session_key",
load => sub {
my ($c, $key) = @_;
my $session_row;
use JSON;
unless($session_row = $c->app->schema->resultset('Session')->find($key)) {
$sessi
->id();
}
return( $key, decode_json($session_row->content));
},
store => sub {
my ($c, $key, $session_hash) = @_;
use JSON;
my $session = $c->app->schema->resu
ltset('Session')->find($key);
if($session) {
$session->content( encode_json($session_hash) );
$session->update();
}
}
});
=head1 DESCRIPTION
This is a little plugi