Yet Another CPAN Grep

Tie-Hash-RedisDB ( I/IN/INSPIRE/Tie-Hash-RedisDB-1.03.tar.gz, INSPIRE, 2018; MetaCPAN )

Tie-Hash-RedisDB/lib/Tie/Hash/RedisDB.pm ( view source; MetaCPAN )

e warnings;
our $VERSION = '1.03';

use Carp qw(croak);
use JSON;
use Scalar::Util qw(reftype);
use RedisDB;
use Try::Tiny;

my $json = JSON->new->utf8->allow_nonref;

sub TIEHASH {
    my ($self, $ad

key);

    return $val && $json->decode($val);
}

sub STORE {
    my ($self, $key, $val) = @_;

    my $redis = $self->{REDIS};

    $redis->hset($self->{WHERE}, $key, $json->encode($val));
    if (my