/ 
Protocol-Redis-1.0004
6 ++
 / Protocol::Redis
++ed by:
BINGOS YKO UNDEF

3 PAUSE users
3 non-PAUSE users.

Сергей Засенко

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 support.

APIv1

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.

new

    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.

parse

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

Parse Redis protocol chunk.

get_message

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

Get parsed message or undef.

on_message

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

    }

Calls callback on each parsed message.

encode

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

Encode data into redis message.

api

    my $api_version = $redis->api;

Get API version.

SUPPORT

IRC

    #redis on irc.perl.org

DEVELOPMENT

Repository

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

AUTHOR

Sergey Zasenko, undef@cpan.org.

CREDITS

In alphabetical order

    David Leadbeater (dgl)

    Viacheslav Tykhanovskyi (vti)

    Yaroslav Korshak (yko)

COPYRIGHT AND LICENSE

Copyright (C) 2011, Sergey Zasenko.

This program is free software, you can redistribute it and/or modify it under the same terms as Perl 5.10.