lib/Tie/Array/std.t

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