sub d {} sub d0 {} sub d1 {} sub dd {} sub di {};
use if $ENV{MYMOD_DEBUG_LEVEL}, 'Test::Utils::Dump' => qw(d d0 d1 dd di);

d 'hi';
di 'hi';
dd 'hi';