eval "sub DEBUG () { $debug_value }";
    *{ join('::', $caller_package, 'DEBUG') } = \&DEBUG;