1 files changed, 24 insertions, 0 deletions
diff --git a/src/pmdas/memcache/client.pl b/src/pmdas/memcache/client.pl
new file mode 100755
index 0000000..bcd3480
--- /dev/null
+++ b/src/pmdas/memcache/client.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Cache::Memcached;
+use vars qw( $memd $val );
+
+$memd = new Cache::Memcached {
+	'servers' => [ "127.0.0.1:11211" ],
+	'debug' => 0,
+	'compress_threshold' => 10_000,
+};
+
+$memd->set("my_key", "Some value");
+$memd->set("object_key", { 'complex' => [ "object", 2, 4 ]});
+
+$val = $memd->get("my_key");
+$val = $memd->get("object_key");
+if ($val) { print $val->{'complex'}->[2]; }
+
+$memd->incr("key");
+$memd->decr("key");
+$memd->incr("key", 2);
+