sub _is_case_sensitive { 1 }
+sub _setup {
+ my $self = shift;
+
+ $self->schema->storage->sql_maker->quote_char('"');
+ $self->schema->storage->sql_maker->name_sep('.');
+}
+
sub _table_pk_info {
my ($self, $table) = @_;
SELECT t.rdb$trigger_source
FROM rdb$triggers t
WHERE t.rdb$relation_name = ?
+AND t.rdb$system_flag = 0 -- user defined
+AND t.rdb$trigger_type = 1 -- BEFORE INSERT
EOF
$sth->execute($table);