CPAN::Groonga

Redis::JSON;

our $VERSION = '0.001'; # VERSION
# ABSTRACT: Session store in Redis with JSON serialization

use base 'Dancer::Session::Abstract';

use Redis;
use JSON qw(encode_json decode_json);
use 

Function::Parameters qw(:strict);
use Dancer::Config qw(setting);

use Dancer::Session::Redis::JSON::Signature qw(sign unsign);

my $REDIS;
my $secret;

sub init {
    my ($class) = @_;

    $class->S

('session_cookie_path')  // '/',
            httpOnly       => setting('session_is_http_only') // JSON::true,
            expires        => setting('session_expires'),
            originalMaxAge => un

use strict;
use warnings;
package Dancer::Session::Redis::JSON::Signature;

# Adapted from https://github.com/visionmedia/node-cookie-signature

use Digest::SHA qw(hmac_sha256_base64 sha1_hex);
use Fu

 sha1_hex($mac) eq sha1_hex("s:$val");
}

1;

__END__

=pod

=head1 NAME

Dancer::Session::Redis::JSON::Signature

=head1 VERSION

version 0.001

=head1 AUTHOR

Forest Belton <forest@homolo.gy>

=head