From be9337a202f2f441c7d94e13cc567651a2b4b040 Mon Sep 17 00:00:00 2001 From: Daniel Nichter Date: Tue, 20 Sep 2011 10:05:37 -0600 Subject: [PATCH] Pass NibbleIterator obj to callbacks. --- lib/NibbleIterator.pm | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/lib/NibbleIterator.pm b/lib/NibbleIterator.pm index ed7d9170..58b31f11 100644 --- a/lib/NibbleIterator.pm +++ b/lib/NibbleIterator.pm @@ -200,13 +200,14 @@ sub next { join(', ', (@{$self->{lb}}, @{$self->{ub}}))); if ( my $callback = $self->{callbacks}->{exec_nibble} ) { $self->{have_rows} = $callback->( - dbh => $self->{dbh}, - tbl => $self->{tbl}, - sth => $self->{nibble_sth}, - lb => $self->{lb}, - ub => $self->{ub}, - nibbleno => $self->{nibbleno}, - explain_sth => $self->{explain_sth}, + dbh => $self->{dbh}, + tbl => $self->{tbl}, + sth => $self->{nibble_sth}, + lb => $self->{lb}, + ub => $self->{ub}, + nibbleno => $self->{nibbleno}, + explain_sth => $self->{explain_sth}, + NibbleIterator => $self, ); } else { @@ -232,10 +233,11 @@ sub next { MKDEBUG && _d('No rows in nibble or nibble skipped'); if ( my $callback = $self->{callbacks}->{after_nibble} ) { $callback->( - dbh => $self->{dbh}, - tbl => $self->{tbl}, - nibbleno => $self->{nibbleno}, - explain_sth => $self->{explain_sth}, + dbh => $self->{dbh}, + tbl => $self->{tbl}, + nibbleno => $self->{nibbleno}, + explain_sth => $self->{explain_sth}, + NibbleIterator => $self, ); } $self->{rowno} = 0;