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