added reduce method to Mojo::Collection

mojolicious · Dec 15, 2013 · 0cc2f52 · 0cc2f52
1 parent d49eb9e
commit 0cc2f52
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,5 +1,6 @@
 
-4.61  2013-12-13
+4.61  2013-12-15
+  - Added reduce method to Mojo::Collection.
 
 4.60  2013-12-11
   - Improved Mojolicious::Validator::Validation to allow custom validation

diff --git a/lib/Mojo/Collection.pm b/lib/Mojo/Collection.pm
@@ -70,6 +70,11 @@ sub pluck {
   return $self->map(sub { $_->$method(@args) });
 }
 
+sub reduce {
+  my ($self, $cb) = @_;
+  return Mojo::ByteStream->new(List::Util::reduce { $a->$cb($b) } @$self);
+}
+
 sub reverse { $_[0]->new(reverse @{$_[0]}) }
 
 sub shuffle { $_[0]->new(List::Util::shuffle @{$_[0]}) }
@@ -237,6 +242,14 @@ results.
   # Equal to but more convenient than
   my $new = $collection->map(sub { $_->$method(@args) });
 
+=head2 reduce
+
+  my $stream = $collection->reduce(sub {...});
+
+Reduce collection to L<Mojo::ByteStream>.
+
+  my $sum = $collection->reduce(sub { shift() + shift() });
+
 =head2 reverse
 
   my $new = $collection->reverse;

diff --git a/t/mojo/collection.t b/t/mojo/collection.t
@@ -80,6 +80,11 @@ is_deeply [@$collection], [1, 2, 3], 'right elements';
 is $collection->map(sub { shift() + 2 })->join(''), '345', 'right result';
 is_deeply [@$collection], [1, 2, 3], 'right elements';
 
+# reduce
+$collection = c(1, 2, 3);
+is $collection->reduce(sub { shift() + shift() }), 6, 'right result';
+is $collection->reduce(sub { $_[1] . $_[0] })->quote, '"321"', 'right result';
+
 # reverse
 $collection = c(3, 2, 1);
 is_deeply [$collection->reverse->each], [1, 2, 3], 'right order';