use constant DEBUG => do {
    my %dlv = map /^(.*)=(\d+)$/, split /,/, $ENV{DEBUG};
    $dlv{__PACKAGE__} || $dlv{all} || 1;
};