Bug #127074 for DBD-Mock: Single statement preparation, multiple execute() invocations -- advice needed

Hi, I appreciate this is an old ticket but hopefully this response will be helpful for other. To do what you want you'll need to use a mock session (DBD::Mock::Session). That lets you define a sequence of expected SQL statements and the results they should return. Something like the following should do the trick: use DBI; use DBD::Mock::Session; my $dbh = DBI->connect('DBI:Mock:', '', ''); $dbh->{mock_session} = DBD::Mock::Session->new( mySession => ( { statement => "select 1 from db_patches where sha = ?", results => [[]], }, { statement => "select 1 from db_patches where sha = ?", results => [[1],[1]], }, )); warn some_sub('a', 'b', 'c') . "\n"; sub some_sub { my @sha_values = @_; my $sth = $dbh->prepare('select 1 from db_patches where sha = ?'); my $found = 0; for my $sha (@sha_values) { warn "looking up $sha\n"; $sth->execute($sha); my $rv = $sth->fetchall_arrayref; $sth->finish; $found = scalar @$rv; last if $found; } return $found; } Regards, Jason.