The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#! perl
use warnings;
use strict;
use Test::More;

BEGIN {
    eval { require Cache::Memcached };
    if ( $@ ) {
        plan skip_all => 'Cache::Memcached is required for this test';
    }
    require Algorithm::FloodControl::Backend::Cache::Memcached;
}
our $be = "Algorithm::FloodControl::Backend::Cache::Memcached";
if (! $ENV{ MEMCACHED_SERVER } ) {
    plan skip_all => '$ENV{ MEMCACHED_SERVER } is not set';
}
plan tests => 6;
require 't/tlib.pm';
$tlib::skip_concurrency = $tlib::skip_concurrency = 1;
tlib::test_backend( 'Cache::Memcached', { servers => [ $ENV{MEMCACHED_SERVER} ], debug => 0 })