Catalyst-Plugin-Session-Store-Redis

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  "license" => "perl",
  "module_name" => "Catalyst::Plugin::Session::Store::Redis",
  "recursive_test_files" => 1,
  "requires" => {
    "Catalyst::Plugin::Session::Store" => 0,
    "Class::Data::Inheritable" => 0,
    "MIME::Base64" => 0,
    "MRO::Compat" => 0,
    "Redis" => 0,
    "Storable" => 0,
    "Try::Tiny" => 0,
    "base" => 0
  },
  "test_requires" => {
    "Catalyst" => 0,
    "Catalyst::Plugin::Session::Test::Store" => 0,
    "Catalyst::Test" => 0,
    "File::Spec" => 0,
    "File::Temp" => 0,
    "FindBin" => 0,
    "IO::Handle" => 0,

META.json  view on Meta::CPAN

         }
      },
      "runtime" : {
         "requires" : {
            "Catalyst::Plugin::Session::Store" : "0",
            "Class::Data::Inheritable" : "0",
            "MIME::Base64" : "0",
            "MRO::Compat" : "0",
            "Redis" : "0",
            "Storable" : "0",
            "Try::Tiny" : "0",
            "base" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Catalyst" : "0",
            "Catalyst::Plugin::Session::Test::Store" : "0",
            "Catalyst::Test" : "0",
            "File::Spec" : "0",
            "File::Temp" : "0",

cpanfile  view on Meta::CPAN

# This file is generated by Dist::Zilla::Plugin::CPANFile v6.032
# Do not edit this file directly. To change prereqs, edit the `dist.ini` file.

requires "Catalyst::Plugin::Session::Store" => "0";
requires "Class::Data::Inheritable" => "0";
requires "MIME::Base64" => "0";
requires "MRO::Compat" => "0";
requires "Redis" => "0";
requires "Storable" => "0";
requires "Try::Tiny" => "0";
requires "base" => "0";

on 'build' => sub {
  requires "Module::Build" => "0.28";
};

on 'test' => sub {
  requires "Catalyst" => "0";
  requires "Catalyst::Plugin::Session::Test::Store" => "0";
  requires "Catalyst::Test" => "0";

lib/Catalyst/Plugin/Session/Store/Redis.pm  view on Meta::CPAN

use strict;

use base qw/
    Class::Data::Inheritable
    Catalyst::Plugin::Session::Store
/;
use MRO::Compat;
use MIME::Base64 qw(encode_base64 decode_base64);
use Redis;
use Storable qw/nfreeze thaw/;
use Try::Tiny;

__PACKAGE__->mk_classdata(qw/_session_redis_storage/);

sub get_session_data {
    my ($c, $key) = @_;

    $c->_verify_redis_connection;

    if(my ($sid) = $key =~ /^expires:(.*)/) {
        $c->log->debug("Getting expires key for $sid");