Small formatting tweaks and remove unused code

diff --git a/t/070_native_traits/013_array_coerce.t b/t/070_native_traits/013_array_coerce.t
index 88f2845..0b54582 100644 (file)
--- a/t/070_native_traits/013_array_coerce.t
+++ b/t/070_native_traits/013_array_coerce.t
@@ -100,7 +100,8 @@ my $foo = Foo->new;
     use Moose;
 
     has thing => (
-        is => 'ro', isa => 'Str',
+        is  => 'ro',
+        isa => 'Str',
     );
 }
 
@@ -113,22 +114,18 @@ my $foo = Foo->new;
 
     coerce 'Thing'
         => from 'Str'
-        => via { Thing->new(thing => $_) };
+        => via { Thing->new( thing => $_ ) };
 
     subtype 'ArrayRefOfThings'
         => as 'ArrayRef[Thing]';
 
     coerce 'ArrayRefOfThings'
         => from 'ArrayRef[Str]'
-        => via { [ map { Thing->new(thing => $_) } @$_ ] };
+        => via { [ map { Thing->new( thing => $_ ) } @{$_} ] };
 
     coerce 'ArrayRefOfThings'
         => from 'Str'
-        => via { [ Thing->new(thing => $_) ] };
-
-    coerce 'ArrayRefOfThings'
-        => from 'Thing'
-        => via { [ $_ ] };
+        => via { [ Thing->new( thing => $_ ) ] };
 
     has array => (
         traits  => ['Array'],