File Coverage

blib/lib/Tie/Array/Queue.pm

Criterion	Covered	Total	%
statement	22	25	88.0
branch	2	2	100.0
condition			n/a
subroutine	9	12	75.0
pod			n/a
total	33	39	84.6

use 5.006;
use strict;
use warnings;

package Tie::Array::Queue;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.003';

use Carp;
use Tie::Array ();
our @ISA = qw(Tie::StdArray);

eval qq[
	sub $_ { croak "$_ operation not permitted on queue" } 1
] || die $@ for qw(STORE POP UNSHIFT EXISTS DELETE SPLICE);

sub FETCH
{
	my $self = shift;

	# The first item on the stack can be peeked at.
	if ($_[0] == 0)
	{
		return $self->SUPER::FETCH(@_);
	}

	croak "FETCH operation not permitted on queue";
}

1;

__END__