client libs removed from Redis git

[redis.git] / client-libraries / perl / scripts / redis-benchmark.pl

diff --git a/client-libraries/perl/scripts/redis-benchmark.pl b/client-libraries/perl/scripts/redis-benchmark.pl
deleted file mode 100755 (executable)
index 74759b0..0000000
--- a/client-libraries/perl/scripts/redis-benchmark.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use Benchmark qw/:all/;
-use lib 'lib';
-use Redis;
-
-my $r = Redis->new;
-
-my $i = 0;
-
-timethese( 100000, {
-       '00_ping'       => sub { $r->ping },
-       '10_set'        => sub { $r->set( 'foo', $i++ ) },
-       '11_set_r'      => sub { $r->set( 'bench-' . rand(), rand() ) },
-       '20_get'        => sub { $r->get( 'foo' ) },
-       '21_get_r'      => sub { $r->get( 'bench-' . rand() ) },
-       '30_incr'       => sub { $r->incr( 'counter' ) },
-       '30_incr_r'     => sub { $r->incr( 'bench-' . rand() ) },
-       '40_lpush'      => sub { $r->lpush( 'mylist', 'bar' ) },
-       '40_lpush'      => sub { $r->lpush( 'mylist', 'bar' ) },
-       '50_lpop'       => sub { $r->lpop( 'mylist' ) },
-});