AnyEvent Perl GET loop. No memory leak.

ae_redis_get.pl

#!/usr/bin/perl -w
$|=1;
use strict;
use lib '/home/jzawodn/code/AnyEvent-Redis/lib';
use AnyEvent::Redis;

my $host = 'localhost';
my $port = 6379;
my $key  = 'foo';

my $done_cv = AnyEvent->condvar;
$done_cv->begin;

my $redis = AnyEvent::Redis->new(host => $host, port => $port,
    on_error => sub { warn @_; $done_cv->end; }
);

sub handler;
sub handler {
    my ($stuff) = @_;
    if ($stuff) {
        print "got $stuff via $key\n";
    } else {
        print "no data\n";
    }
    $redis->get($key, sub { handler(@_); });
};

handler();
$done_cv->recv;

exit;

Compare with: http://gist.github.com/653912

Compare with: http://gist.github.com/653912