tests for each_*

[gitmo/Moose-Autobox.git] / lib / Moose / Autobox / Array.pm

diff --git a/lib/Moose/Autobox/Array.pm b/lib/Moose/Autobox/Array.pm
index 21ce08a..ae96b49 100644 (file)
--- a/lib/Moose/Autobox/Array.pm
+++ b/lib/Moose/Autobox/Array.pm
@@ -126,9 +126,7 @@ sub each {
 
 sub each_key {
     my ($array, $sub) = @_;
-    for my $i (0 .. $#$array) {
-      $sub->($i);
-    }
+    $sub->($_) for (0 .. $#$array);
 }
 
 sub each_value {