use constant DEBUG => 0;

##</code><code>##

...
if (@_ == 1) {
    my $scalar = $_[0];
    *{"${pkg}::$name"} = sub () { $scalar };
}
...