File Coverage

blib/lib/Queue/Q/NaiveFIFO/Perl.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch			n/a
condition	2	2	100.0
subroutine	12	12	100.0
pod	7	7	100.0
total	60	60	100.0

package Queue::Q::NaiveFIFO::Perl;
use strict;
use warnings;

use Carp qw(croak);
use Queue::Q::NaiveFIFO;
use parent 'Queue::Q::NaiveFIFO';

sub new {
    my $class = shift;
    my $self = bless {
        @_,
        queue => [],
    } => $class;
    return $self;
}

sub enqueue_item {
    my $self = shift;
    push @{$self->{queue}}, shift;
}

sub enqueue_items {
    my $self = shift;
    push @{$self->{queue}}, @_;
}

sub claim_item {
    my $self = shift;
    return shift @{$self->{queue}};
}

sub claim_items {
    my $self = shift;
    my $n = shift || 1;
    my $q = $self->{queue};
    my @items = splice(@{$self->{queue}}, 0, $n);
    return @items;
}

sub flush_queue {
    my $self = shift;
    @{ $self->{queue} } = ();
}

sub queue_length {
    my $self = shift;
    return scalar(@{ $self->{queue} });
}

1;

__END__