#!./perl
BEGIN {
chdir 't' if -d 't';
print "1..0 # Skip: List::Util was not built\n";
exit 0;
}
}
}
# Ensure we do not trigger and tied methods
tie *F, 'MyTie';
print "1..13\n";
my $i = 1;
print "ok ",$i++,"\n";
}
foreach $r ({}, \$t, [], \*F, sub {}) {
my $addr = $r + 0;
print "ok ",$i++,"\n";
print "ok ",$i++,"\n";
}
'+' => sub { 10 + $_[1] };
sub DESTROY {}
sub AUTOLOAD {
exit 1; # May be in an eval
}