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