tiearray.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
my %seen;
sub TIEARRAY
{
}
sub STORESIZE
{
}
sub EXTEND
{
}
sub FETCHSIZE
{
}
sub FETCH
{
}
sub STORE
{
}
sub UNSHIFT
{
my $ob = shift;
}
sub PUSH
{
my $ob = shift;;
}
sub CLEAR
{
@{$_[0]} = ();
}
sub DESTROY
{
}
sub POP
{
}
sub SHIFT
{
}
sub SPLICE
{
my $ob = shift;
my $off = @_ ? shift : 0;
}
print "1..31\n";
my $test = 1;
{my @ary;
}
@ary = (1,2,3);
}
my $t = 0;
foreach $n (@ary)
{
}
}