Lines Matching defs:DEBUG
5 use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
30 DEBUG and warn "eval $val";
32 DEBUG and $@ and warn "$val, $@";
35 DEBUG and warn "$alias", "->", "($find)";
43 DEBUG and warn "$alias, $new";
61 DEBUG and warn "$find => $name";
65 if (DEBUG) {
90 DEBUG and warn "delete \$Alias\{$k\}";
94 DEBUG and warn "delete \$Alias\{$k\}";
100 DEBUG and warn "delete \$Alias\{$alias\}";
103 elsif (DEBUG) {