use strict; use Test::More; BEGIN { if (! $ENV{ MEMCACHED_SERVER } ) { plan(skip_all => "Define MEMCACHED_SERVER (e.g. localhost:11211) to run this test"); } else { plan(tests => 2); } use_ok("Cache::Memcached::libmemcached"); } my $cache = Cache::Memcached::libmemcached->new( { servers => [ $ENV{ MEMCACHED_SERVER } ] }); { $cache->disconnect_all; ok(1); } 1;