use MySQL::Diff::Utils qw(debug_level debug);
DESCRIPTIONCurrently contains the debug message handling routines.
Public FunctionsFuller documentation will appear here in time :)
debug_file( $file )
Accessor to set/get the current debug log file.
debug_level( $level )
Accessor to set/get the current debug level for messages.
Current levels range from 1 to 4, with 1 being very brief processing messages, 2 providing high level process flow messages, 3 providing low level process flow messages and 4 providing data dumps, etc where appropriate.
Writes to debug log file (if specified) and STDERR the given message, provided is equal to or lower than the current debug level.
COPYRIGHT AND LICENSECopyright (c) 2000-2011 Adam Spiers. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
AUTHORAdam Spiers <[email protected]>