File Coverage

lib/Dancer/Plugin/Queue/Array.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	31	32	96.8

use 5.008001;
use strict;
use warnings;

package Dancer::Plugin::Queue::Array;
# ABSTRACT: No abstract given for Dancer::Plugin::Queue::Array
our $VERSION = '0.002'; # VERSION

# Dependencies
use Moo;
with 'Dancer::Plugin::Queue::Role::Queue';


has name => (
    is       => 'ro',
    required => 1,
);

has _messages => (
    is      => 'ro',
    default => sub { [] },
);


sub add_msg {
    my ( $self, $msg ) = @_;
    push @{ $self->_messages }, $msg;
}


sub get_msg {
    my ($self) = @_;
    my $msg = shift @{ $self->_messages };
    return wantarray ? ( $msg, $msg ) : $msg;
}


sub remove_msg {
    my ( $self, $msg ) = @_;
    # XXX NOOP since 'get_msg' already removes it
}

1;


# vim: ts=4 sts=4 sw=4 et:

__END__