Catalyst-Plugin-Session-Store-Redis-Fast

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

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

META.yml  view on Meta::CPAN

  directory:
    - t
    - inc
requires:
  Catalyst::Plugin::Session::Store: '0'
  Class::Data::Inheritable: '0'
  MIME::Base64: '0'
  MRO::Compat: '0'
  Redis::Fast: '0'
  Storable: '0'
  Try::Tiny: '0'
  base: '0'
  perl: '5.006'
resources:
  repository: git://github.com/spajai/Catalyst-Plugin-Session-Store-Redis-Fast.git
version: '1.001'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

        "Redis::Fast" => 0,
        "perl" => "5.006"
    },
    PREREQ_PM => {
        "Catalyst::Plugin::Session::Store" => 0,
        "Class::Data::Inheritable" => 0,
        "MIME::Base64" => 0,
        "MRO::Compat" => 0,
        "Redis::Fast" => 0,
        "Storable" => 0,
        "Try::Tiny" => 0,
        "base" => 0
    },
     META_MERGE => {
        "meta-spec" => { version => 2 },
        resources => {
            repository => {
                type => 'git',
                url  => 'git://github.com/spajai/Catalyst-Plugin-Session-Store-Redis-Fast.git',
                web  => 'https://github.com/spajai/Catalyst-Plugin-Session-Store-Redis-Fast',
            },

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

use warnings;
use strict;

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

__PACKAGE__->mk_classdata(qw/_redis_connection/);

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

    $c->_verify_redis_connection;

    if(my ($sid) = $key =~ /^expires:(.*)/) {