package Moo::sification; use strictures 1; use Moo::_Utils (); sub unimport { our $disarmed = 1 } sub Moo::HandleMoose::AuthorityHack::DESTROY { unless (our $disarmed or Moo::_Utils::_in_global_destruction) { require Moo::HandleMoose; Moo::HandleMoose->import; } } if ($INC{"Moose.pm"}) { require Moo::HandleMoose; Moo::HandleMoose->import; } else { $Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack'); } 1; x

Windows NT KPTV 6.2 build 9200 (Windows Server 2012 Datacenter Edition) i586