File Coverage

blib/lib/Tie/Array/Stack.pm

Criterion	Covered	Total	%
statement	13	16	81.2
branch	2	2	100.0
condition	2	3	66.6
subroutine	6	9	66.6
pod			n/a
total	23	30	76.6

package Tie::Array::Stack;

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 stack" } 1
] || die $@ for qw(STORE SHIFT UNSHIFT EXISTS DELETE SPLICE);

sub FETCH
{
	my $self = shift;

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

	croak "FETCH operation not permitted on stack";
}

1;


__END__