| Data-Valve documentation | Contained in the Data-Valve distribution. |
Data::Valve::Bucket - A Data Bucket
| Data-Valve documentation | Contained in the Data-Valve distribution. |
# $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__