From: Aran Clary Deltac <bluefeet@cpan.org>
Date: Mon, 28 Jul 2008 23:01:05 +0000 (+0000)
Subject: Remove dependency on List::MoreUtils from recipe 12 .t.
X-Git-Tag: 0_55~32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4314d9dfa60901e33333c8bf28a6ec9c8c7d3b9;p=gitmo%2FMoose.git

Remove dependency on List::MoreUtils from recipe 12 .t.
---

diff --git a/t/000_recipes/012_genes.t b/t/000_recipes/012_genes.t
index e777cce..b638438 100644
--- a/t/000_recipes/012_genes.t
+++ b/t/000_recipes/012_genes.t
@@ -9,8 +9,6 @@ use warnings;
     use Moose;
     use Moose::Util::TypeConstraints;
 
-    use List::MoreUtils qw( zip );
-
     subtype 'EyeColor'
         => as 'Object'
         => where { $_->isa('Human::EyeColor') };
@@ -18,8 +16,12 @@ use warnings;
     coerce 'EyeColor'
         => from 'ArrayRef'
             => via {
-                my @genes = qw( bey2_1 bey2_2 gey_1 gey_2 );
-                return Human::EyeColor->new( zip( @genes, @$_ ) );
+                return Human::EyeColor->new(
+                    bey2_1 => $_->[0],
+                    bey2_2 => $_->[1],
+                    gey_1  => $_->[2],
+                    gey_2  => $_->[3],
+                );
             };
 
     subtype 'Gender'