}
my %seen;
- return sort grep { !$seen{$_}++ }
+ return sort grep { !$seen{$_}++ } ## no critic
(map{ $_->name } map{ $_->meta->calculate_all_roles } @self_anon_supers),
(map{ $_->name } map{ $_->meta->calculate_all_roles } @other_anon_supers),
;
|| $class->throw_error("You must pass an instance of the metaclass (" . $class->name . "), not ($object)");
my $cloned = bless { %$object }, ref $object;
- $class->_initialize_object($cloned, $args);
+ $class->_initialize_object($cloned, $args, 1);
return $cloned;
}
=head1 VERSION
-This document describes Mouse version 0.50_07
+This document describes Mouse version 0.54
=head1 METHODS