$sub->($_) for @$array;
}
+sub each_n_values {
+ my ($array, $n, $sub) = @_;
+ my $it = List::MoreUtils::natatime($n, @$array);
+
+ while (my @vals = $it->()) {
+ $sub->(@vals);
+ }
+
+ return;
+}
+
# end indexed
sub flatten {
=item B<flatten_deep ($depth)>
+=item B<each_n_values ($n, $callback)>
+
=back
=head2 Indexed implementation