use strict;
use Cache::Memcached::Fast;
use Memcached::Client;

my $data_short = "x" x 1024;
my $data_long = "x" x (10 * 1024);


my $memd_fast = Cache::Memcached::Fast->new ({ servers => [ 'localhost:11211' ],
                                               max_size => 10000 * 1024,
                                             });

my $memd_client = Memcached::Client->new ({servers => ['localhost:11211']});


print "Setting keys with Fast..\n";
print "Failed to add data_short\n" if not $memd_fast->set("data_short", $data_short);
print "Failed to add data_long\n" if not $memd_fast->set("data_long", $data_long);
print "done.\n\n";

print "Getting keys with Fast..\n";
my $value = length $memd_fast->get("data_short");
print "data_short=$value\n";
my $value = length $memd_fast->get("data_long");
print "data_long=$value\n\n";

print "Getting keys with Client..\n";
my $value = length $memd_client->get("data_short");
print "data_short=$value\n";
my $value = length $memd_client->get("data_long");
print "data_long=$value\n\n";