# there are many other ways to print a stack trace
# and some core (see caller)
use Devel::StackTrace;

sub env_db_user {
  $log->info("accessing config: ".Devel::StackTrace->new->as_string);
  return 'username';
}
...