use constant DEBUG => do {
    (my $p = uc __PACKAGE__ ) =~ tr/:/_/s;
    $ENV{ $p . '_DEBUG' } || 0;
};