tiearray

   1 #!./perl
   2
   3 # $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $
   4
   5 {
   6     package Any_DBM_File;
   7     @ISA = (NDBM_File, ODBM_File, GDBM_File, SDBM_File, DB_File, DBZ_File);
   8 }
   9 {
  10     package FAKEARRAY;
  11     sub new { print "new @_\n"; bless ['foo'] }
  12     sub fetch { print "fetch @_\n"; $_[0]->[$_[1]] }
  13     sub store { print "store @_\n"; $_[0]->[$_[1]] = $_[2] }
  14     sub DESTROY { print "DESTROY @_\n"; undef @{$_[0]}; }
  15 }
  16
  17 tie @h, FAKEARRAY, ONE, TWO, THREE;
  18
  19 $h[1] = 'bar';
  20 $h[2] = 'baz';
  21 print $h[0], "\n";
  22 print $h[1], "\n";
  23 print $h[2], "\n";
  24
  25 untie @h;
  26