my $dbh = DBI->connect( 'DBI:Mock:', '', '' ) || die "connect: $DBI::errstr";
# [ call stuff that uses $dbh ]
print join "\n", map { $_->to_string } ( @{ $dbh->{mock_all_history} } );