I like the idea of a tool, but why turn off all runtime contract checks? Wouldn't you want them in there to catch the errors?

What's the point of testing the code below with something but positive numbers?

is_numeric($_[0]) && $_[0] > 0 or die "Invalid input, give me a positi
+ve number\n";
# is_numeric taken from perlfaq4
[download]

This check is here for a reason and we'd like to test the reasoning. Will it die horribly trying to multiply a hashref by two or taking a square root of -100? Will it just plain lie?