Queue::Leaky - Queues with leaky buckets

  use Queue::Leaky;
  my $queue = Queue::Leaky->new;

  $queue->inesrt( ... );

  while ( 1 ) {
    if ($queue->next) {
      my $message = $queue->fetch;
    }
  }

  $queue->clear;

Queue::Leaky is employed as a traffic regulator.

Taro Funaki <t@33rpm.jp>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.