From: Tokuhiro Matsuno <tokuhirom@gmail.com>
Date: Sat, 11 Apr 2009 15:25:44 +0000 (+0900)
Subject: Moose says 'The clone_instance method has been made private. The public version is... 
X-Git-Tag: 0.21~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=518e303aafaeb9885807830ebdc1a55010107a5a;p=gitmo%2FMouse.git

Moose says 'The clone_instance method has been made private. The public version is deprecated.'
we don't mention this method. remove test.
---

diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index 0e23430..9e55fa4 100644
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -459,7 +459,8 @@ metaclass.
 
 =head2 clone_instance Instance, Parameters -> Instance
 
-Clones the given C<Instance> and sets any additional parameters.
+The clone_instance method has been made private.
+The public version is deprecated.
 
 =cut
 
diff --git a/t/031-clone.t b/t/031-clone.t
index 9d7454f..be9cfa1 100644
--- a/t/031-clone.t
+++ b/t/031-clone.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 10;
+use Test::More tests => 9;
 use Test::Exception;
 
 do {
@@ -57,7 +57,4 @@ throws_ok {
     Foo->meta->clone_object(Foo->meta)
 } qr/You must pass an instance of the metaclass \(Foo\), not \(Mo.se::Meta::Class=HASH\(\w+\)\)/;
 
-throws_ok {
-    Foo->meta->clone_instance("constant")
-} qr/You can only clone instances, \(constant\) is not a blessed instance/;