my $env_level = int($ENV{PERL_DESTRUCT_LEVEL} || 0);
if ($env_level >= $level) {
my $is_debugging = is_debugging_perl();
require Test::More;
if ($is_debugging) {
_diag("Global destruction level $env_level set by PERL_DESTRUCT_LEVEL (debugging perl)");
my $env_level = int($ENV{PERL_DESTRUCT_LEVEL} || 0);
if ($env_level >= $level) {
my $is_debugging = is_debugging_perl();
require Test::More;
if ($is_debugging) {
_diag("Global destruction level $env_level set by PERL_DESTRUCT_LEVEL (debugging perl)");