Squareroot

Sub::Assert - Design-by-contract like pre- and postconditions, etc. SYNOPSIS use Sub::Assert; sub squareroot { my $x = shift; return $x**0.5; } assert pre => $PARAM[0] >= 1, # for the sake of simplicity post => $VOID or $RETURN <= $PARAM[0], sub => squareroot, context => novoid,... Platforms: *nix