auto-moose

diff --git a/lib/Moo.pm b/lib/Moo.pm
index 92337f2..eeee9e9 100644 (file)
--- a/lib/Moo.pm
+++ b/lib/Moo.pm
@@ -7,6 +7,18 @@ 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');
+}
+
 our %MAKERS;
 
 sub import {

diff --git a/xt/handle_moose.t b/xt/handle_moose.t
index 34ea480..3f6d39f 100644 (file)
--- a/xt/handle_moose.t
+++ b/xt/handle_moose.t
@@ -3,7 +3,7 @@ use Test::Exception;
 
 BEGIN { require "t/moo-accessors.t"; }
 
-use Moo::HandleMoose;
+require Moose;
 
 my $meta = Class::MOP::get_metaclass_by_name('Foo');