Sub::Assert 1.22

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, action => carp; print squareroot(2), "n"; # prints 1.41421 and so on print squareroot(-1), "n"; # warns # "Precondition 1 for main::squareroot failed." squareroot(2); # warns # "main::squareroot called in void context." sub faultysqrt { my $x = shift; return $x**2; } assert pre => $PARAM[0] >= 1, # for the sake of simplicity post => $RETURN <= $PARAM[0], sub => faultysqrt; print faultysqrt(2), "n"; # dies with # "Postcondition 1 for main::squareroot failed.".

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Libraries,  Pre-,  Programming,  Return,  Squareroot,  Subassert
Users rating:	0/10