Protocol::Redis - Redis protocol parser/encoder with asynchronous capabilities.
use Protocol::Redis;
my $redis = Protocol::Redis->new(api => 1) or die "API v1 not supported";
$redis->parse("+foo\r\n");
# get parsed message
my $message = $redis->get_message;
print "parsed message: ", $message->{data}, "\n";
# asynchronous parsing interface
$redis->on_message(sub {
my ($redis, $message) = @_;
print "parsed message: ", $message->{data}, "\n";
});
# parse pipelined message
$redis->parse("+bar\r\n-error\r\n");
# create message
print "Get key message:\n",
$redis->encode({type => '*', data => [
{type => '$', data => 'string'},
{type => '+', data => 'OK'}
]});
Redis protocol parser/encoder with asynchronous capabilities and pipelining support.
Protocol::Redis APIv1 uses "Unified Request Protocol" for message encoding/parsing and supports methods described further. Client libraries should specify API version during Protocol::Redis construction.
my $redis = Protocol::Redis->new(api => 1)
or die "API v1 not supported";
Construct Protocol::Redis object with specific API version support. If specified API version not supported constructor returns undef. Client libraries should always specify API version.
$redis->parse("*2\r\n$4ping\r\n\r\n");
Parse Redis protocol chunk.
while (my $message = $redis->get_message) {
...
}
Get parsed message or undef.
$redis->on_message(sub {
my ($redis, $message) = @_;
}
Calls callback on each parsed message.
my $string = $redis->encode({type => '+', data => 'test'});
$string = $redis->encode(
{type => '*', data => [
{type => '$', data => 'test'}]});
Encode data into redis message.
my $api_version = $redis->api;
Get API version.
#redis on irc.perl.org
http://github.com/und3f/protocol-redis
Sergey Zasenko, undef@cpan.org
.
In alphabetical order
Dan Book (Grinnz)
David Leadbeater (dgl)
Jan Henning Thorsen (jhthorsen)
Viacheslav Tykhanovskyi (vti)
Yaroslav Korshak (yko)
Copyright (C) 2011-2019, Sergey Zasenko.
This program is free software, you can redistribute it and/or modify it under the same terms as Perl 5.10.