use B 'perlstring';
use Sub::Defer ();
-our $VERSION = '1.000007'; # 1.0.7
+our $VERSION = '1.000008'; # 1.0.8
$VERSION = eval $VERSION;
require Moo::sification;
if ($Moo::Role::INFO{$target} and $Moo::Role::INFO{$target}{is_role}) {
die "Cannot import Moo into a role";
}
- return if $MAKERS{$target}; # already exported into this package
- $MAKERS{$target} = { is_class => 1 };
+ $MAKERS{$target} ||= {};
_install_tracked $target => extends => sub {
$class->_set_superclasses($target, @_);
$class->_maybe_reset_handlemoose($target);
return;
};
}
+ return if $MAKERS{$target}{is_class}; # already exported into this package
+ $MAKERS{$target}{is_class} = 1;
{
no strict 'refs';
@{"${target}::ISA"} = do {
tobyink - Toby Inkster (cpan:TOBYINK) <tobyink@cpan.org>
+haarg - Graham Knop (cpan:HAARG) <haarg@cpan.org>
+
=head1 COPYRIGHT
Copyright (c) 2010-2011 the Moo L</AUTHOR> and L</CONTRIBUTORS>