From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 11 Apr 2012 20:54:36 +0000 (+0000)
Subject: split authority hackery out into Moo::sification
X-Git-Tag: v0.009_015~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c2cb1fed0f0f194538af19082bd8a3bd1121f92f;p=gitmo%2FMoo.git

split authority hackery out into Moo::sification
---

diff --git a/lib/Moo.pm b/lib/Moo.pm
index 1ccc972..f57246d 100644
--- 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
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;