# $Id: /mirror/coderepos/lang/perl/Data-Valve/trunk/lib/Data/Valve/Bucket.pm 66548 2008-07-22T00:38:42.978696Z daisuke $
package Data::Valve::Bucket;
use strict;
sub new {
my ($class, %args) = @_;
$args{strict_interval} ||= 0;
my $self = bless create($args{interval}, $args{max_items}, $args{strict_interval}), $class;
return $self;
}
sub deserialize {
my ($class, @args) = @_;
return bless _deserialize(@args), $class;
}
1;
__END__
=head1 NAME
Data::Valve::Bucket - A Data Bucket
=head1 METHODS
=head2 new
=head2 create
=head2 try_push
=head2 expire
=head2 destroy
=head2 interval
=head2 max_items
=head2 count
=head2 serialize
=head2 deserialize
=head2 first
=head2 reset
=cut