log::contextual

gistfile1.pl

# Setup Logger (source: L<Log::Contextual/LOGGER CODEREF>
my @caller_info;
my $logref = sub {
       chomp($_[0]);
       warn "$_[0] at $caller_info[1] line $caller_info[2].\\n"
};
my $var_log = Log::Contextual::SimpleLogger->new({
       levels_upto => LEVEL->[$opt->verbose],
       coderef => $logref,
});
my $warn_faker = sub {
       my ($package, $args) = @_;
       @caller_info = caller($args->{caller_level});
       $var_log
};
set_logger ($warn_faker);

I'd like to replace this code with:

use My::Log;
my_log_setup "debug";