NAME

Sub::Contract::Debug - Display debug information

SYNOPSIS

use Sub::Contract::Debug qw(debug);

debug(1,"doing that");
debug(2,"and that");

DESCRIPTION

To turn on debug information at various levels of verbosity, set the variable $DEBUG within Sub::Contract::Debug to a positive integer. The higher the value, the higher the verbosity.

API

debug($level,$message);

Print a debug message to stdout if $level is lower or equal to $Sub::Contract::Debug::DEBUG.

SEE ALSO

See 'Sub::Contract'.

VERSION

$Id: Debug.pm,v 1.11 2009/06/16 12:23:58 erwan_lemonnier Exp $

AUTHOR

Erwan Lemonnier <erwan@cpan.org>

LICENSE

See Sub::Contract.