on_connect_call => [ 'datetime_setup' ],
});
- my $sg = Scope::Guard->new(\&cleanup);
+ my $sg = Scope::Guard->new(sub { cleanup($schema) } );
eval { $schema->storage->dbh->do('DROP TABLE "event"') };
$schema->storage->dbh->do(<<'SQL');
# clean up our mess
sub cleanup {
+ my $schema = shift;
my $dbh;
eval {
$schema->storage->disconnect; # to avoid object FOO is in use errors