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 {
};
*{_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 {
require Moo::Object; ('Moo::Object');
} unless @{"${target}::ISA"};
}
+ if ($INC{'Moo/HandleMoose.pm'}) {
+ Moo::HandleMoose::inject_fake_metaclass_for($target);
+ }
}
sub _constructor_maker_for {
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.
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>