File Coverage

blib/lib/Tie/Array/Queue.pm

Criterion	Covered	Total	%
statement	13	16	81.2
branch	2	2	100.0
condition			n/a
subroutine	6	9	66.6
pod			n/a
total	21	27	77.7

package Tie::Array::Queue;

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

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__