redo the currying syntax to get rid of one of the arrayrefs

[gitmo/Moose.git] / t / 070_native_traits / 207_trait_string.t

diff --git a/t/070_native_traits/207_trait_string.t b/t/070_native_traits/207_trait_string.t
index c14ff01..7c85ae8 100644 (file)
--- a/t/070_native_traits/207_trait_string.t
+++ b/t/070_native_traits/207_trait_string.t
@@ -26,10 +26,9 @@ my $uc;
             chomp_string   => 'chomp',
             clear_string   => 'clear',
             length_string  => 'length',
-            exclaim        => [ append => ['!'] ],
-            capitalize_last =>
-                [ replace => [ qr/(.)$/, $uc = sub { uc $1 } ] ],
-            invalid_number => [ match => [qr/\D/] ],
+            exclaim        => [ append => '!' ],
+            capitalize_last => [ replace => qr/(.)$/, ($uc = sub { uc $1 }) ],
+            invalid_number => [ match => qr/\D/ ],
         },
     );
 }
@@ -108,9 +107,9 @@ is_deeply(
         chomp_string    => 'chomp',
         clear_string    => 'clear',
         length_string   => 'length',
-        exclaim         => [ append => ['!'] ],
-        capitalize_last => [ replace => [ qr/(.)$/, $uc ] ],
-        invalid_number => [ match => [qr/\D/] ],
+        exclaim         => [ append => '!' ],
+        capitalize_last => [ replace => qr/(.)$/, $uc ],
+        invalid_number => [ match => qr/\D/ ],
     },
     '... got the right handles methods'
 );