The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# $Id: /mirror/coderepos/lang/perl/Data-Valve/trunk/lib/Data/Valve/BucketStore.pm 66567 2008-07-22T08:55:23.819173Z daisuke  $

package Data::Valve::BucketStore;
use Moose::Role;

requires qw(try_push fill reset);

has 'context' => (
    is       => 'rw',
    isa      => 'Data::Valve',
    handles  => [ qw(max_items interval strict_interval) ],
);

no Moose;

1;

__END__

=head1 NAME

Data::Valve::BucketStore - Manage Buckets

=head1 METHODS

=head2 setup

=cut