view release on metacpan or  search on metacpan

lib/Cache/Memcached/XS.pm  view on Meta::CPAN

require XSLoader;
XSLoader::load('Cache::Memcached::XS', $VERSION);

use Storable;

# flag definitions
use constant F_STORABLE => 1;
use constant F_COMPRESS => 2;

# size savings required before saving compressed value
use constant COMPRESS_SAVINGS => 0.20; # percent

use vars qw($HAVE_ZLIB);

BEGIN {
    $HAVE_ZLIB = eval "use Compress::Zlib (); 1;";
}

sub new
{
	my $this	=	shift;