Algorithm-FloodControl

 view release on metacpan or  search on metacpan

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

package Algorithm::FloodControl;

use strict;
use warnings;
use utf8;
use 5.008000;

use Carp;
use Params::Validate qw/:all/;
use base 'Class::Accessor::Fast';
use Exporter 'import';
use Module::Load;

use version; our $VERSION = qv("2.01")->numify;
our @EXPORT = qw(

lib/Algorithm/FloodControl/Backend.pm  view on Meta::CPAN

package Algorithm::FloodControl::Backend;

use utf8;
use strict;
use warnings;

use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors( qw/storage prefix expires/ );

=head2 get_info

=cut

lib/Algorithm/FloodControl/Backend/Cache/FastMmap.pm  view on Meta::CPAN

package Algorithm::FloodControl::Backend::Cache::FastMmap;

use utf8;
use strict;
use warnings;

use Params::Validate qw/:all/;
use base 'Algorithm::FloodControl::Backend';
__PACKAGE__->mk_accessors( qw/storage prefix expires/ );

=head2 increment

=cut

lib/Algorithm/FloodControl/Backend/Cache/Memcached.pm  view on Meta::CPAN

package Algorithm::FloodControl::Backend::Cache::Memcached;

use utf8;
use strict;
use warnings;

use Params::Validate qw/:all/;
use base 'Algorithm::FloodControl::Backend';

=head2 increment

=cut

lib/Algorithm/FloodControl/Backend/Cache/Memcached/Fast.pm  view on Meta::CPAN

package Algorithm::FloodControl::Backend::Cache::Memcached::Fast;

use utf8;
use strict;
use warnings;
use Algorithm::FloodControl::Backend::Cache::Memcached;
use base 'Algorithm::FloodControl::Backend::Cache::Memcached';

1;

__END__

=head1 NAME

t/tlib.pm  view on Meta::CPAN

package tlib;

use utf8;
use strict;
use warnings;
use Test::More;
our $skip_concurrency;
$tlib::skip_concurrency = 0;
sub test_backend {
    my $storage_name = shift;
    my @params = @_;
    my $be = $main::be;
    my $c = $be->new(