From: markie <markie@nulletch64.dreamhost.com>
Date: Mon, 1 Mar 2010 03:11:07 +0000 (-0800)
Subject: make Call command not return anything so _merge doesn't try and merge the row count
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d67a183c4ffb24c0a78de98b77094458cd1f27a9;p=dbsrgits%2FDBIx-Data-Store-old.git

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

diff --git a/lib/DBIx/Data/Store/Command/Call.pm b/lib/DBIx/Data/Store/Command/Call.pm
index 4436151..08bc398 100644
--- a/lib/DBIx/Data/Store/Command/Call.pm
+++ b/lib/DBIx/Data/Store/Command/Call.pm
@@ -5,6 +5,7 @@ use Method::Signatures::Simple;
 
 method execute {
   $self->_new_active_sth->rows;
+  return
 }
 
 with 'DBIx::Data::Store::Command';
diff --git a/lib/Data/Perl/Stream/Array.pm b/lib/Data/Perl/Stream/Array.pm
index 8d4f325..cb0ccf5 100644
--- a/lib/Data/Perl/Stream/Array.pm
+++ b/lib/Data/Perl/Stream/Array.pm
@@ -7,8 +7,6 @@ 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;