1N/A#!./perl
1N/A
1N/ABEGIN {
1N/A chdir 't' if -d 't';
1N/A @INC = '.';
1N/A push @INC, '../lib';
1N/A}
1N/A
1N/A{
1N/A package Basic;
1N/A use Tie::Array;
1N/A @ISA = qw(Tie::Array);
1N/A
1N/A sub TIEARRAY { return bless [], shift }
1N/A sub FETCH { $_[0]->[$_[1]] }
1N/A sub STORE { $_[0]->[$_[1]] = $_[2] }
1N/A sub FETCHSIZE { scalar(@{$_[0]}) }
1N/A sub STORESIZE { $#{$_[0]} = $_[1]-1 }
1N/A}
1N/A
1N/Atie @x,Basic;
1N/Atie @get,Basic;
1N/Atie @got,Basic;
1N/Atie @tests,Basic;
1N/Arequire "op/push.t"