$schema = DBICTest::Schema->connect($dsn, $user, $pass, {
quote_char => '"',
- name_sep => '.',
+ name_sep => '.',
on_connect_call => [ 'datetime_setup' ],
});
my $row;
ok( $row = $rs->create({
id => 1,
- starts_at => $date_only,
+ starts_at => $date_only,
created_on => $dt,
}));
ok( $row = $rs->search({ id => 1 }, { select => [qw/starts_at created_on/] })
# clean up our mess
sub cleanup {
- my $dbh;
+ my $dbh;
eval {
$schema->storage->disconnect; # to avoid object FOO is in use errors
$dbh = $schema->storage->dbh;