NAME¶

Protocol::Redis - Redis protocol parser/encoder with asynchronous capabilities.

SYNOPSIS¶

    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'}
    ]});

DESCRIPTION¶

Redis protocol parser/encoder with asynchronous capabilities and pipelining <http://redis.io/topics/pipelining> support.

APIv1¶

Protocol::Redis APIv1 uses "Unified Request Protocol <http://redis.io/topics/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";

    $redis->parse("*2\r\n$4ping\r\n\r\n");

    while (my $message = $redis->get_message) {
        ...
    }

    $redis->on_message(sub {
        my ($redis, $message) = @_;
    }

    my $string = $redis->encode({type => '+', data => 'test'});
    $string = $redis->encode(
        {type => '*', data => [
            {type => '$', data => 'test'}]});

    my $api_version = $redis->api;

SUPPORT¶

    #redis on irc.perl.org

DEVELOPMENT¶

    http://github.com/und3f/protocol-redis

AUTHOR¶

Sergey Zasenko, "undef@cpan.org".

CREDITS¶

In alphabetical order

COPYRIGHT AND LICENSE¶

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.