NAME Devel::GlobalPhase - Detect perl's global phase on older perls. SYNOPSIS use Devel::GlobalPhase; print global_phase; # RUN use Devel::GlobalPhase -var; print ${^GLOBAL_PHASE}; # RUN DESCRIPTION This gives access to ${^GLOBAL_PHASE} in versions of perl that don't provide it. The built in variable will be used if it is available. If all that is needed is detecting global destruction, Devel::GlobalDestruction should be used instead of this module. EXPORTS global_phase Returns the global phase either from "${^GLOBAL_PHASE}" or by calculating it. OPTIONS -var If this option is specified on import, the global variable "${^GLOBAL_PHASE}" will be created if it doesn't exist, emulating the built in variable from newer perls. BUGS There are tricks that can be played with B or XS that would fool this module for the INIT and END phase. AUTHOR haarg - Graham Knop (cpan:HAARG) <haarg@haarg.org> CONTRIBUTORS Uses some code taken from Devel::GlobalDestruction. COPYRIGHT Copyright (c) 2013 the Devel::GlobalPhase "AUTHOR" and "CONTRIBUTORS" as listed above. LICENSE This library is free software and may be distributed under the same terms as perl itself.