#! /usr/bin/env perl

use v5.14;
use warnings;

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

d('hi');
di('hi');
dd('hi');

##</code><code>##

defined &d && d('hi');
defined &di && di('hi');
defined &dd && dd('hi');

##</code><code>##

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';