The Perl 5 package Devel::GlobalDestruction provides a predicate
method to test if global destruction is in effect.

Homepage:
https://metacpan.org/release/Devel-GlobalDestruction
