return $object;
}
+sub clone_object {
+ my $class = shift;
+ my $object = shift;
+ 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, $args, 1);
+
+ return $cloned;
+}
+
sub _initialize_object{
my($self, $object, $args, $is_cloning) = @_;
=head1 VERSION
-This document describes Mouse version 0.59
+This document describes Mouse version 0.61
=head1 SEE ALSO