use Sub::Name qw/subname/;
sub import {
     # ...
     my $exp = $pkg."::DEBUG";
     {
         no strict 'refs';
         *{$exp} = subname $exp => sub() { $debug };
     }
     # ...
}