lib/Moo/sification.pm

   1 package Moo::sification;
   2
   3 use strictures 1;
   4 use Devel::GlobalDestruction;
   5
   6 sub unimport { our $disarmed = 1 }
   7
   8 sub Moo::HandleMoose::AuthorityHack::DESTROY {
   9   unless (our $disarmed or in_global_destruction) {
  10     require Moo::HandleMoose;
  11     Moo::HandleMoose->import;
  12   }
  13 }
  14
  15 if ($INC{"Moose.pm"}) {
  16   require Moo::HandleMoose;
  17   Moo::HandleMoose->import;
  18 } else {
  19   $Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack');
  20 }
  21
  22 1;