Yet Another CPAN Grep

Object-RateLimiter ( A/AV/AVENJ/Object-RateLimiter-1.004001.tar.gz, AVENJ, 2016; MetaCPAN )

Object-RateLimiter/lib/Object/RateLimiter.pm ( view source; MetaCPAN )

eue}  = $self->_queue->copy if $self->_queue;
  $self->new(%params);
}

{ no warnings 'once'; *TO_JSON = *export }
sub export {
  my ($self) = @_;
  +{
    events   => $self->events, 
    seconds  =>

meant like a government thing\n]
unless caller; 1;

=pod

=for Pod::Coverage EVENTS QUEUE SECS TO_JSON

=head1 NAME

Object::RateLimiter - A flood control (rate limiter) object

=head1 SYNOPSIS

  use