mojo_redis.pl

sub load {
  my ($self, $sid) = @_;
  my $redis  = $self->redis();
  my $prefix = $self->redis_prefix;
  my $session;

  my $delay = Mojo::IOLoop->delay(
    sub {
      my ($d, $res) = @_;
      $res->{'data'} = $res->{'data'} ? decode_json($res->{'data'}) : undef ;
      warn p $res;
      $session = $res;
    });
  $redis->hgetall("$prefix/$sid", $delay->begin);
  $delay->wait unless Mojo::IOLoop->is_running;

  warn p [ $session->{'expires'}, $session->{'data'} ];;
  return ( $session->{'expires'}, $session->{'data'} );
}