view release on metacpan or  search on metacpan

lib/Algorithm/LeakyBucket.pm  view on Meta::CPAN

use 5.008008;
use strict;
use warnings;
use Carp qw(cluck);
our $VERSION = '0.08';

sub new
{
	my ($class, %args) = @_;
	my $self = {};
	bless ($self, $class);

	eval {
		require Cache::Memcached::Fast;
		$self->{__mc_module_fast} = 1;
	};

	eval {
		require Cache::Memcached;
		$self->{__mc_module} = 1;
	};