inline Devel::GlobalDestruction pure perl code temporarily
[gitmo/Moo.git] / lib / Moo / sification.pm
CommitLineData
c2cb1fed 1package Moo::sification;
2
3use strictures 1;
19e0e749 4use Moo::_Utils ();
c2cb1fed 5
6b90ff03 6sub unimport { our $disarmed = 1 }
dbae620d 7
c2cb1fed 8sub Moo::HandleMoose::AuthorityHack::DESTROY {
19e0e749 9 unless (our $disarmed or Moo::_Utils::_in_global_destruction) {
dbae620d 10 require Moo::HandleMoose;
11 Moo::HandleMoose->import;
12 }
c2cb1fed 13}
14
15if ($INC{"Moose.pm"}) {
16 require Moo::HandleMoose;
17 Moo::HandleMoose->import;
18} else {
19 $Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack');
20}
21
221;