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