NAME<\/a> Devel::GlobalDestruction \u2212 Provides function returning the equivalent of “${^GLOBAL_PHASE} eq ‘DESTRUCT'” for older perls.<\/p>\n package Foo; Perl\u2019s global destruction is a little tricky to deal with WRT<\/small> finalizers because it\u2019s not ordered and objects can sometimes disappear.<\/p>\n Writing defensive destructors is hard and annoying, and usually if global destruction is happening you only need the destructors that free up non process local resources to actually execute.<\/p>\n For these constructors you can avoid the mess by simply bailing out if global destruction is in effect.<\/p>\n This module uses Sub::Exporter::Progressive so the exports may be renamed, aliased, etc. if Sub::Exporter is present. Returns true if the interpreter is in global destruction. In perl 5.14+, this returns “${^GLOBAL_PHASE} eq ‘DESTRUCT'”, and on earlier perls, detects it using the value of “PL_main_cv” or “PL_dirty”.<\/p>\n
SYNOPSIS<\/a>
DESCRIPTION<\/a>
EXPORTS<\/a>
AUTHORS<\/a>
COPYRIGHT<\/a> <\/p>\n
\nNAME <\/a> <\/h2>\n
SYNOPSIS <\/a> <\/h2>\n
use Devel::GlobalDestruction;
use namespace::clean; # to avoid having an “in_global_destruction” method
sub DESTROY {
return if in_global_destruction;
do_something_a_little_tricky();
}<\/p>\nDESCRIPTION <\/a> <\/h2>\n
EXPORTS <\/a> <\/h2>\n
in_global_destruction<\/p>\nAUTHORS <\/a> <\/h2>\n