sub clone_object {
my $class = shift;
my $object = shift;
- my %params = (@_ == 1) ? %{$_[0]} : @_;
+ my $args = $object->Mouse::Object::BUILDARGS(@_);
(blessed($object) && $object->isa($class->name))
|| $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, \%params);
+ $class->_initialize_object($cloned, $args);
return $cloned;
}
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.49
=head1 METHODS