From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 24 Oct 2009 18:06:56 +0000 (-0500)
Subject: clean up test a bit
X-Git-Tag: 0.93~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=575ca97412cccdd0bce12c61df9e4c3ba8bb334a;p=gitmo%2FMoose.git

clean up test a bit
---

diff --git a/t/020_attributes/011_more_attr_delegation.t b/t/020_attributes/011_more_attr_delegation.t
index 05393ad..51a5d6e 100644
--- a/t/020_attributes/011_more_attr_delegation.t
+++ b/t/020_attributes/011_more_attr_delegation.t
@@ -91,7 +91,7 @@ do not fail at compile time.
     package Parent;
     use Moose;
 
-    sub parent_method_1 { "parrent_1" }
+    sub parent_method_1 { "parent_1" }
 
     ::dies_ok {
         has child_a => (
@@ -195,7 +195,10 @@ do not fail at compile time.
             isa     => "ChildI",
             is      => "ro",
             default => sub { ChildI->new },
-            handles => sub { map { $_, $_ } grep { !/^parent_method_1$/ }$_[1]->get_all_method_names },
+            handles => sub {
+                map { $_, $_ } grep { !/^parent_method_1$/ }
+                    $_[1]->get_all_method_names;
+            },
         );
     } "Test handles code ref for skipping predefined methods";