File Coverage

blib/lib/IPC/PrettyPipe/Queue.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	5	6	83.3
condition			n/a
subroutine	7	7	100.0
pod	2	3	66.6
total	49	51	96.0

package IPC::PrettyPipe::Queue;

# ABSTRACT: A simple queue

use Moo;

our $VERSION = '0.13';

use Safe::Isa;
use Types::Standard -types;

use namespace::clean;














sub BUILD {

    my $self = shift;

    if ( @{ $self->elements } ) {

        for ( @{ $self->elements } ) {
            $_->_set_first( 0 );
            $_->_set_last( 0 );
        }

        $self->elements->[0]->_set_first( 1 );
        $self->elements->[-1]->_set_last( 1 );
    }
}


















has elements => (
    is      => 'ro',
    isa     => ArrayRef [ ConsumerOf ['IPC::PrettyPipe::Queue::Element'] ],
    default => sub { [] },
);









sub empty { !!!@{ $_[0]->elements } }




















sub push {

    my ( $self, $elem ) = ( shift, shift );

    die(
        "attempt to push an incompatible element onto an IPC::PrettyPipe::Queue\n"
    ) unless $elem->$_does( 'IPC::PrettyPipe::Queue::Element' );

    my $elements = $self->elements;

    if ( @$elements ) {
        ## no critic (ProhibitAccessOfPrivateData)
        $elements->[-1]->_set_last( 0 );
        $elem->_set_last( 1 );
        $elem->_set_first( 0 );
    }
    else {

        $elem->_set_last( 1 );
        $elem->_set_first( 1 );

    }

    push @{$elements}, $elem;

    return;
}

1;

#
# This file is part of IPC-PrettyPipe
#
# This software is Copyright (c) 2018 by Smithsonian Astrophysical Observatory.
#
# This is free software, licensed under:
#
#   The GNU General Public License, Version 3, June 2007
#

__END__