use strict; use warnings; use lib './lib'; use Log::Maybe; # uses $ENV var $LOG_LEVEL = debug; # enable/change log level info('oh, yeah, baby!'); # prints only if log level is info debug('hi'); # prints if log level is debug or info debug( 'wow', \%ENV ); # dumps non-scalars debugf( 'name: %s, age: %d', 'Jack', 23 ); # dumpf takes a sprintf form $LOG_LEVEL = 0; # disable logging at runtime debug('nothing is logged'); # what it says on the tin