Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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;
Add Comment
Please, Sign In to add comment