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;