# set default
__PACKAGE__->_use_insert_returning (1);
__PACKAGE__->sql_limit_dialect ('FirstSkip');
+__PACKAGE__->sql_quote_char ('"');
+__PACKAGE__->datetime_parser_type(
+ 'DBIx::Class::Storage::DBI::InterBase::DateTime::Format'
+);
sub _sequence_fetch {
my ($self, $nextval, $sequence) = @_;
- if ($nextval ne 'nextval') {
- $self->throw_exception("Can only fetch 'nextval' for a sequence");
- }
+ $self->throw_exception("Can only fetch 'nextval' for a sequence")
+ if $nextval !~ /^nextval$/i;
$self->throw_exception('No sequence to fetch') unless $sequence;
- my ($val) = $self->_get_dbh->selectrow_array(
-'SELECT GEN_ID(' . $self->sql_maker->_quote($sequence) .
-', 1) FROM rdb$database');
+ my ($val) = $self->_get_dbh->selectrow_array(sprintf
+ 'SELECT GEN_ID(%s, 1) FROM rdb$database',
+ $self->sql_maker->_quote($sequence)
+ );
return $val;
}
$self->_get_dbh->{ib_time_all} = 'ISO';
}
-sub datetime_parser_type {
- 'DBIx::Class::Storage::DBI::InterBase::DateTime::Format'
-}
package # hide from PAUSE
DBIx::Class::Storage::DBI::InterBase::DateTime::Format;