Future::Queue - a FIFO queue of values that uses Futures
Future::Queue
use Future::Queue; use Future::AsyncAwait; my $queue = Future::Queue->new; async sub process_queue { while(1) { my $thing = await $queue->shift; ... } } my $f = process_queue(); $queue->push( "a thing" );
Objects in this class provide a simple FIFO queue the stores arbitrary perl values. Values may be added into the queue using the "push" method, and retrieved from it using the "shift" method.
Values may be stored within the queue object for shift to retrieve later, or if the queue is empty then the future that shift returns will be completed once an item becomes available.
shift
$queue = Future::Queue->new( %params );
Returns a new Future::Queue instance.
Takes the following named arguments:
Since version 0.50.
Optional. If defined, there can be at most the given number of items in the queue. Attempts to call "push" beyond that will yield a future that remains pending, until a subsequent "shift" operation makes enough space.
Since verison 0.51.
Optional. If defined, gives either a class name, an object instance to clone or a code reference to invoke when a new pending Future instance is needed by the shift or push methods when they cannot complete immediately.
Future
push
$f = $prototype->(); # if CODE reference $f = $prototype->new; # otherwise
If not provided, a default of Future will be used.
$queue->push( @items ); await $queue->push( @items );
Adds more items into the queue. If the queue was previously empty and there is at least one shift future waiting, then the next one will be completed by this method.
Since version 0.50 this can take multiple items; earlier versions can only take one value at once.
This method always returns a Future instance. If max_items is defined then it is possible that this future will be in a still-pending state; indicating that there was not yet space in the queue to add the items. It will become completed once enough "shift" calls have been made to make space for them.
max_items
If max_items is not defined then these instances will always be immediately complete; it is safe to drop or ignore it, or call the method in void context.
If the queue has been finished then more items cannot be pushed and an exception will be thrown.
$item = await $queue->shift;
Returns a Future that will yield the next item from the queue. If there is already an item then this will be taken and the returned future will be immediate. If not, then the returned future will be pending, and the next push method will complete it.
If the queue has been finished then the future will yield an empty list, or undef in scalar context.
undef
If undef is a valid item in your queue, make sure to test this condition carefully. For example:
while( ( my $item ) = await $queue->shift ) { ... }
Here, the await expression and the assignment are in list context, so the loop will continue to iterate while any value is assigned, even if that value is undef. The loop will only stop once no items are returned, indicating the end of the queue.
await
@items = await $queue->shift_atmost( $count );
A bulk version of "shift" that can return multiple items at once.
Returns a Future that will yield the next few items from the queue. If there is already at least one item in the queue then up to $count items will be taken, and the returned future will be immediate. If not, then the returned future will be pending and the next push method will complete it.
$count
$queue->finish;
Marks that the queue is now finished. Once the current list of items has been exhausted, any further attempts to shift more will yield empty.
Paul Evans <leonerd@leonerd.org.uk>
To install Future::Queue, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Future::Queue
CPAN shell
perl -MCPAN -e shell install Future::Queue
For more information on module installation, please visit the detailed CPAN module installation guide.