1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '.'; 6 push @INC, '../lib'; 7} 8 9use Tie::Array; 10tie @foo,Tie::StdArray; 11tie @ary,Tie::StdArray; 12tie @bar,Tie::StdArray; 13require "op/array.t" 14