make Call command not return anything so _merge doesn't try and merge the row count

[dbsrgits/DBIx-Data-Store-old.git] / lib / Data / Perl / Stream / Array.pm

diff --git a/lib/Data/Perl/Stream/Array.pm b/lib/Data/Perl/Stream/Array.pm
index 7c0cd09..cb0ccf5 100644 (file)
--- a/lib/Data/Perl/Stream/Array.pm
+++ b/lib/Data/Perl/Stream/Array.pm
@@ -7,14 +7,16 @@ has _array => (is => 'rw', required => 1, init_arg => 'array');
 
 method BUILD { $self->_array([ @{$self->_array} ]) }
 
-use Devel::Dwarn;
-
 method next {
   my $ary = $self->_array;
   return unless @$ary;
   return shift @$ary;
 }
 
+method map ($map_func) {
+  ref($self)->new(array => [ map { $map_func->($_) } @{$self->_array} ]);
+}
+
 __PACKAGE__->meta->make_immutable;
 
 1;