[p5sagit/p5-mst-13.2.git] / t / lib / tie-push.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    unshift @INC, '../lib';
}    

{
 package Basic;
 use Tie::Array;
 @ISA = qw(Tie::Array);

 sub TIEARRAY  { return bless [], shift }
 sub FETCH     { $_[0]->[$_[1]] }
 sub STORE     { $_[0]->[$_[1]] = $_[2] }
 sub FETCHSIZE { scalar(@{$_[0]}) }
 sub STORESIZE { $#{$_[0]} = $_[1]-1 }
}

tie @x,Basic;
tie @get,Basic;
tie @got,Basic;
tie @tests,Basic;
require "op/push.t"
Commit	Line	Data
a60c0954	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
93430cb4	5	unshift @INC, '../lib';
a60c0954	6	}
	7
	8	{
	9	package Basic;
	10	use Tie::Array;
	11	@ISA = qw(Tie::Array);
	12
	13	sub TIEARRAY { return bless [], shift }
	14	sub FETCH { $_[0]->[$_[1]] }
	15	sub STORE { $_[0]->[$_[1]] = $_[2] }
	16	sub FETCHSIZE { scalar(@{$_[0]}) }
	17	sub STORESIZE { $#{$_[0]} = $_[1]-1 }
	18	}
	19
	20	tie @x,Basic;
	21	tie @get,Basic;
	22	tie @got,Basic;
	23	tie @tests,Basic;
93430cb4	24	require "op/push.t"