#!./perl
#
# Copyright (c) 1995-2000, Raphael Manfredi
#
# You may redistribute only under the same terms as Perl 5, as specified
# in the README file that comes with the distribution.
#
#
#
chdir('t') if -d 't';
} else {
}
print "1..0 # Skip: Storable was not built\n";
exit 0;
}
}
sub ok;
$^W = 0;
print "1..8\n";
$h_fetches = 0;
sub H::FETCH { $h_fetches++; $_[1] - 70 }
$ref = \$h{77};
ok 1, $h_fetches == 0;
ok 4, $h_fetches == 2;
$a_fetches = 0;
sub A::FETCH { $a_fetches++; $_[1] - 70 }
$ref = \$a[78];
ok 5, $a_fetches == 0;
# I don't understand why it's 3 and not 2
ok 8, $a_fetches == 3;