From: Dave Rolsky <autarch@urth.org>
Date: Thu, 16 Jun 2011 15:30:56 +0000 (-0500)
Subject: Tweak test description and tidy code
X-Git-Tag: 2.0008~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=488cad5e6bb4f650168c554c4af4d87af7378e47;p=gitmo%2FMoose.git

Tweak test description and tidy code
---

diff --git a/t/native_traits/trait_hash.t b/t/native_traits/trait_hash.t
index d319ee8..36dd0be 100644
--- a/t/native_traits/trait_hash.t
+++ b/t/native_traits/trait_hash.t
@@ -293,14 +293,21 @@ sub run_tests {
 }
 
 {
-    my ($class, $handles) = build_class(isa => 'HashRef');
+    my ( $class, $handles ) = build_class( isa => 'HashRef' );
     my $obj = $class->new;
     with_immutable {
-        is(exception { $obj->option_accessor('foo', undef) }, undef,
-           "can use accessor to set to undef");
-        is(exception { $obj->quantity(undef) }, undef,
-           "can use accessor to set to undef");
-    } $class;
+        is(
+            exception { $obj->option_accessor( 'foo', undef ) },
+            undef,
+            'can use accessor to set value to undef'
+        );
+        is(
+            exception { $obj->quantity(undef) },
+            undef,
+            'can use accessor to set value to undef'
+        );
+    }
+    $class;
 }
 
 done_testing;