view release on metacpan or  search on metacpan

examples/generic.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use AnyEvent;
use AnyEvent::Redis::RipeRedis;

my $cv = AE::cv();

my $redis = AnyEvent::Redis::RipeRedis->new(
  host     => 'localhost',
  port     => 6379,
  password => 'redis_pass',

  on_connect => sub {
    print "Connected to Redis server\n";
  },

  on_disconnect => sub {
    print "Disconnected from Redis server\n";
  },
);

# Increment
$redis->incr( 'foo',
  { on_done => sub {
      my $data = shift;

      print "$data\n";
    },
  }
);

# Set value
$redis->set( 'bar', 'Some string',
  { on_done => sub {
      print "SET is done\n";
    },
  }
);

# Get value
$redis->get( 'bar',
  { on_done => sub {
      my $data = shift;

      print "$data\n";
    },
  }
);

# Push values
for ( my $i = 1; $i <= 3; $i++ ) {
  $redis->rpush( 'list', "element_$i",
    { on_done => sub {
        my $data = shift;

        print "$data\n";
      },
    }
  );
}

# Get list of values
$redis->lrange( 'list', 0, -1,
  { on_done => sub {
      my $data = shift;

      foreach my $val ( @{$data} ) {
        print "$val\n";
      }
    },
  }