use constant DEBUG => do {
    (my $p = __PACKAGE__ ) =~ tr/a-z:/A-Z_/s;
    $ENV{ $p . '_DEBUG' } || 0;
};