File Coverage

blib/lib/Tie/Array/Stack.pm

Criterion	Covered	Total	%
statement	22	25	88.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	9	12	75.0
pod			n/a
total	35	42	83.3

use 5.006;
use strict;
use warnings;

package Tie::Array::Stack;

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 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__