t/lib/tie-push.t

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