view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

@failed = ();
END {print "[Failed test: ", join(", ",@failed), "]\n" if @failed;}

print "ok 1\n";

######################### End of black magic.

$hashref = Tie::InSecureHash->new();

$ok_count = 1;
sub ok($)
{
# 	print "\t$@" if $@ && $::VERBOSE;
# 	print "\tUnexpected error at ", (caller)[2], "\n"
# 		if !$_[0] && !$@ && $::VERBOSE;
# 	print "not " unless $_[0];
	print "ok ", ++$ok_count;
# 	print "\t($_[0])" if $_[0] && $::VERBOSE;
 	print "\n";
# 	push @::failed, $ok_count  unless $_[0];
}