NAME
Redis::Jet - Yet another XS implemented Redis Client
SYNOPSIS
use Redis::Jet;
my $jet = Redis::Jet->new( server => 'localhost:6379' );
my $ret = $jet->command(qw/set redis data-server/); # $ret eq 'OK'
my $value = $jet->command(qw/get redis/); # $value eq 'data-server'
my $ret = $jet->command(qw/set memcached cache-server/);
my $values = $jet->command(qw/mget redis memcached mysql/);
# $values eq ['data-server','memcached',undef]
## error handling
($values,$error) = $jet->command(qw/get redis memcached mysql/);
# $error eq q!ERR wrong number of arguments for 'get' command!
## pipeline
my @values = $jet->pipeline([qw/get redis/],[qw/get memcached/]);
# \@values = [['data-server'],['cache-server']]
my @values = $jet->pipeline([qw/get redis/],[qw/get memcached mysql/]);
# \@values = [['data-server'],[undef,q!ERR wrong...!]]DESCRIPTION
This project is still in a very early development stage. IT IS NOT READY FOR PRODUCTION!
Redis::Jet is yet another XS implemented Redis Client. This module provides simple interfaces to communicate with Redis server
METHODS
my $obj = Redis::Jet->new(%args)-
Create a new instance.
server => "server:port"-
server address and port
- connect_timeout
-
Time seconds to wait for establish connection. default: 5
- io_timeout
-
Time seconds to wait for send request and read response. default: 1
- utf8
-
If enabled, Redis::Jet does encode/decode strings. default: 0 (false)
- noreply
-
IF enabled. The instance does not parse any responses. Every responses to be
"0 but true". default: 0 (false) - reconnect_attempts
-
If Redis::Jet could not connect to redis server or failed to write requests, Redis::Jet attempts to re-connect. This parameter specify how many times to try reconnect. default: 0 (disable reconnect feature);
- reconnect_delay
-
Redis::Jet inserts delay before reconnect redis-server (see
reconnect_attempts). default: 0.1 (100msec)
($value,[$error]) = $obj->command($command,$args,$args)-
send a command and retrieve a value
@values = $obj->pipeline([$command,$args,$args],[$command,$args,$args])-
send several commands and retrieve values. each value has value and error string if error was occurred.
BENCHMARK
single get =======
Rate redis fast hiredis jet
redis 46036/s -- -58% -70% -75%
fast 110682/s 140% -- -29% -39%
hiredis 155172/s 237% 40% -- -15%
jet 181695/s 295% 64% 17% --
single incr =======
Rate redis fast hiredis jet
redis 49118/s -- -58% -70% -73%
fast 116294/s 137% -- -29% -37%
hiredis 164938/s 236% 42% -- -11%
jet 184497/s 276% 59% 12% --
pipeline =======
Rate redis fast jet
redis 15754/s -- -73% -87%
fast 58519/s 271% -- -53%
jet 124185/s 688% 112% --
Physical server
Intel Xeon CPU E3-1240 v3 @ 3.40GHz | 4core/8thread
redis-2.8.17
Perl-5.20.1
Redis 1.976
Redis::Fast 0.13
Redis::hiredis 0.11.0SEE ALSO
* Redis
* http://redis.io/
LICENSE
Copyright (C) Masahiro Nagano.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
AUTHOR
Masahiro Nagano <kazeburo@gmail.com>