Yet Another CPAN Grep

MojoX-Session-Store-Redis ( B/BL/BLUET/MojoX-Session-Store-Redis-0.10.tar.gz, BLUET, 2017; MetaCPAN )

MojoX-Session-Store-Redis/lib/MojoX/Session/Store/Redis.pm ( view source; MetaCPAN )

package MojoX::Session::Store::Redis;

use utf8;
use warnings;
use strict;
use Redis;
use JSON;

use base 'MojoX::Session::Store';

use namespace::clean;

__PACKAGE__->attr('redis');
__PACKAGE__->attr

te {
	my ($self, $sid, $expires, $data) = @_;
	my $prefix = $self->redis_prefix;

	$data = encode_json($data) if $data;
	$self->redis->hmset("$prefix:$sid", 'sid' => $sid, 'data' => $data, 'expires' =

y %session = $self->redis->hgetall("$prefix:$sid");
	$session{'data'} = $session{'data'} ? decode_json($session{'data'}) : undef ;
	
	return ($session{'expires'}, $session{'data'});
}


sub delete {