my $instance = shift;
(blessed($instance) && $instance->isa($class->name))
- || confess "You must pass an instance ($instance) of the metaclass (" . $class->name . ")";
+ || confess "You must pass an instance of the metaclass (" . $class->name . "), not ($instance)";
$class->clone_instance($instance, @_);
}
Returns the list of classes in method dispatch order, with duplicates removed.
+=head2 clone_object Instance -> Instance
+
+Clones the given C<Instance> which must be an instance governed by this
+metaclass.
+
+=head2 clone_instance Instance, Parameters -> Instance
+
+Clones the given C<Instance> and sets any additional parameters.
+
=cut