Queue::Leaky::Driver::Simple - Queue::Base Implementation

  use Queue::Leaky::Driver::Simple;

  my $queue = Queue::Leaky::Driver::Simple->new;

  $queue->next;

  $queue->fetch;

  $queue->insert( ... );

  $queue->clear;

package Queue::Leaky::Driver::Simple;

use Moose;
use Queue::Base;

has 'base' => (
    is       => 'rw',
    isa      => 'Queue::Base',
    default  => sub { Queue::Base->new },
    required => 1,
    handles  => {
        fetch  => 'remove',
        clear  => 'clear',
    },
);

with 'Queue::Leaky::Driver';

__PACKAGE__->meta->make_immutable;

no Moose;

sub next {
    my $self = shift;
    ! $self->base->empty;
}

sub insert {
    my $self = shift;
    $self->base->add(@_);
    return 1;
}

1;

__END__