split authority hackery out into Moo::sification

diff --git a/lib/Moo.pm b/lib/Moo.pm
index 1ccc972..f57246d 100644 (file)
--- a/lib/Moo.pm
+++ b/lib/Moo.pm
@@ -7,17 +7,7 @@ use B 'perlstring';
 our $VERSION = '0.009014'; # 0.9.13
 $VERSION = eval $VERSION;
 
-sub Moo::HandleMoose::AuthorityHack::DESTROY {
-  require Moo::HandleMoose;
-  Moo::HandleMoose->import;
-}
-
-if ($INC{"Moose.pm"}) {
-  require Moo::HandleMoose;
-  Moo::HandleMoose->import;
-} else {
-  $Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack');
-}
+require Moo::sification;
 
 our %MAKERS;
 

diff --git a/lib/Moo/sification.pm b/lib/Moo/sification.pm
new file mode 100644 (file)
index 0000000..6ad0f27
--- /dev/null
+++ b/lib/Moo/sification.pm
@@ -0,0 +1,17 @@
+package Moo::sification;
+
+use strictures 1;
+
+sub Moo::HandleMoose::AuthorityHack::DESTROY {
+  require Moo::HandleMoose;
+  Moo::HandleMoose->import;
+}
+
+if ($INC{"Moose.pm"}) {
+  require Moo::HandleMoose;
+  Moo::HandleMoose->import;
+} else {
+  $Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack');
+}
+
+1;