The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use t::test;

require Devel::GlobalPhase;
Devel::GlobalPhase->import;

eval q[
      { is global_phase, 'RUN',     'RUN'     };
END   { is global_phase, 'END',     'END'     };
our $global = Test::Scope::Guard->new(sub {
      { is global_phase, 'DESTRUCT', 'DESTRUCT' };
      done_testing;
});
] or die $@;