inline Devel::GlobalDestruction pure perl code temporarily

[gitmo/Moo.git] / lib / Moo / sification.pm

diff --git a/lib/Moo/sification.pm b/lib/Moo/sification.pm
index 2f94663..baf4c52 100644 (file)
--- a/lib/Moo/sification.pm
+++ b/lib/Moo/sification.pm
@@ -1,12 +1,12 @@
 package Moo::sification;
 
 use strictures 1;
-use Devel::GlobalDestruction;
+use Moo::_Utils ();
 
 sub unimport { our $disarmed = 1 }
 
 sub Moo::HandleMoose::AuthorityHack::DESTROY {
-  unless (our $disarmed or in_global_destruction) {
+  unless (our $disarmed or Moo::_Utils::_in_global_destruction) {
     require Moo::HandleMoose;
     Moo::HandleMoose->import;
   }