Keep last $dbh.rows after $sth.dispose

Author: salortiz

lib/DBDish/Connection.pm6

@@ -19,6 +19,7 @@ unit role DBDish::Connection does DBDish::ErrorHandling;
 
 has %.Statements;
 has $.last-sth-id is rw;
+has $.last-rows is rw;
 
 method dispose() {
     $_.dispose for %!Statements.values;
@@ -60,6 +61,8 @@ method rows {
     if $!last-sth-id {
 	with %!Statements{$!last-sth-id} {
 	    .rows;
+	} else {
+	    $!last-rows
 	}
     }
 }

lib/DBDish/StatementHandle.pm6

@@ -55,8 +55,10 @@ method new(*%args) {
 method dispose() {
     self.finish unless $!Finished;
     self._free;
-    my \id := self.WHICH.Str;
-    ?($.parent.Statements{id}:delete);
+    with $.parent.Statements{self.WHICH}:delete {
+	$.parent.last-rows = self.rows;
+	True;
+    } else { False };
 }
 #Avoid leaks if explicit dispose isn't used by the user.
 submethod DESTROY() {