Upgrade to Module-Build-0.2808
[p5sagit/p5-mst-13.2.git] / lib / Tie / Array / 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"