Upgrade to Module-Build-0.2808
[p5sagit/p5-mst-13.2.git] / lib / Tie / Array / push.t
CommitLineData
a60c0954 1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
20822f61 5 @INC = '.';
6 push @INC, '../lib';
a60c0954 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
21tie @x,Basic;
22tie @get,Basic;
23tie @got,Basic;
24tie @tests,Basic;
93430cb4 25require "op/push.t"