1 package Variable::Magic::TestGlobalDestruction;
6 # Silence possible 'used only once' warnings from Test::Builder
18 my $level = $args{level} || 1;
20 my $env_level = int($ENV{PERL_DESTRUCT_LEVEL} || 0);
21 if ($env_level >= $level) {
22 my $is_debugging = do {
26 grep /-DDEBUGGING\b/, @Config::Config{qw<ccflags cppflags optimize>};
31 _diag("Global destruction level $env_level set by PERL_DESTRUCT_LEVEL (debugging perl)");
34 _diag("PERL_DESTRUCT_LEVEL is set to $env_level, but this perl doesn't seem to have debugging enabled");
38 my $has_perl_destruct_level = do {
41 require Perl::Destruct::Level;
42 Perl::Destruct::Level->import(level => $level);
46 if ($has_perl_destruct_level) {
47 _diag("Global destruction level $level set by Perl::Destruct::Level");