package Log::Maybe {
    use strict;
    use warnings;
    use parent 'Exporter';
    our %EXPORT_TAGS = ( all => [ our @EXPORT = qw[info debug debugf $LOG_LEVEL] ] );    # Don't do this...
    our $LOG_LEVEL   = $ENV{LOG_MAYBE};                                                  # 0: off, 1: debug, 2: info
    use Data::Dump qw[];
    use Carp;
    $Carp::CarpLevel = 1;

    sub info {
        return 2 unless @_;
        return   unless $LOG_LEVEL >= 2;
        Carp::cluck join ' ', map { ref $_ ? Data::Dump::dump($_) : $_ } @_;
    }

    sub debug {
        return 1 unless @_;
        return   unless $LOG_LEVEL >= 1;
        Carp::cluck '[' . localtime . '] ' . join ' ', map { ref $_ ? Data::Dump::dump($_) : $_ } @_;
    }

    sub debugf {
        return 1 unless @_;
        return   unless $LOG_LEVEL >= 1;
        Carp::cluck '[' . localtime . '] ' . sprintf shift, map { ref $_ ? Data::Dump::dump($_) : $_ } @_;
    }
};
1;

##</code><code>##

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