From: Fuji, Goro <gfuji@cpan.org>
Date: Mon, 27 Sep 2010 03:44:44 +0000 (+0900)
Subject: Docs
X-Git-Tag: 0.75~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=6ec37ed3f4c83c360a4b4412e789bd2800a50777

Docs
---

diff --git a/lib/Test/Mouse.pm b/lib/Test/Mouse.pm
index 6bf1ba7..ff1b98d 100644
--- a/lib/Test/Mouse.pm
+++ b/lib/Test/Mouse.pm
@@ -69,9 +69,9 @@ sub with_immutable (&@) { ## no critic
     $block->();
     $_->meta->make_immutable for @_;
     $block->();
+    return if not defined wantarray;
 
     my $num_tests = $Test->current_test - $before;
-
     return !grep{ !$_ } ($Test->summary)[-$num_tests .. -1];
 }
 
@@ -114,13 +114,10 @@ does for the C<isa> method.
 Tests if a class or object has a certain attribute, similar to what C<can_ok>
 does for the methods.
 
-=back
+=item B<with_immutable { CODE } @class_names>
 
-=head1 SEE ALSO
-
-=over 4
-
-=item L<Test::More>
+Runs I<CODE> *which should contain normal tests) twice, and make each
+class in I<@class_names> immutable between the two runs.
 
 =back
 
@@ -130,5 +127,7 @@ L<Mouse>
 
 L<Test::Moose>
 
+L<Test::More>
+
 =cut