adjust for latest Role::Tiny
[gitmo/Moo.git] / lib / Moo.pm
index 19f5327..1ccc972 100644 (file)
@@ -4,9 +4,21 @@ use strictures 1;
 use Moo::_Utils;
 use B 'perlstring';
 
-our $VERSION = '0.009013'; # 0.9.13
+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 {
@@ -21,8 +33,7 @@ sub import {
   };
   *{_getglob("${target}::with")} = sub {
     require Moo::Role;
-    die "Only one role supported at a time by with" if @_ > 1;
-    Moo::Role->apply_role_to_package($target, $_[0]);
+    Moo::Role->apply_roles_to_package($target, $_[0]);
   };
   $MAKERS{$target} = {};
   *{_getglob("${target}::has")} = sub {
@@ -46,6 +57,9 @@ sub import {
       require Moo::Object; ('Moo::Object');
     } unless @{"${target}::ISA"};
   }
+  if ($INC{'Moo/HandleMoose.pm'}) {
+    Moo::HandleMoose::inject_fake_metaclass_for($target);
+  }
 }
 
 sub _constructor_maker_for {
@@ -464,6 +478,10 @@ No support for C<super>, C<override>, C<inner>, or C<augment> - override can
 be handled by around albeit with a little more typing, and the author considers
 augment to be a bad idea.
 
+The C<dump> method is not provided by default. The author suggests loading 
+L<Devel::Dwarn> into C<main::> (via C<perl -MDevel::Dwarn ...> for example) and
+using C<$obj-E<gt>$::Dwarn()> instead.
+
 L</default> only supports coderefs, because doing otherwise is usually a
 mistake anyway.
 
@@ -534,6 +552,8 @@ ajgb - Alex J. G. BurzyƄski (cpan:AJGB) <ajgb@cpan.org>
 
 doy - Jesse Luehrs (cpan:DOY) <doy at tozt dot net>
 
+perigrin - Chris Prather (cpan:PERIGRIN) <chris@prather.org>
+
 =head1 COPYRIGHT
 
 Copyright (c) 2010-2011 the Moo L</AUTHOR> and L</CONTRIBUTORS>