1 package DBIx::Class::Storage::DBI::Firebird::Common;
5 use base qw/DBIx::Class::Storage::DBI/;
10 DBIx::Class::Storage::DBI::Firebird::Common - Driver Base Class for the Firebird RDBMS
14 This class implements autoincrements for Firebird using C<RETURNING> as well as
15 L<auto_nextval|DBIx::Class::ResultSource/auto_nextval>, savepoints and server
21 __PACKAGE__->_use_insert_returning (1);
22 __PACKAGE__->sql_limit_dialect ('FirstSkip');
23 __PACKAGE__->sql_quote_char ('"');
25 __PACKAGE__->datetime_parser_type(
26 'DBIx::Class::Storage::DBI::InterBase::DateTime::Format'
34 my ($self, $nextval, $sequence) = @_;
36 $self->throw_exception("Can only fetch 'nextval' for a sequence")
37 if $nextval !~ /^nextval$/i;
39 $self->throw_exception('No sequence to fetch') unless $sequence;
41 my ($val) = $self->_get_dbh->selectrow_array(sprintf
42 'SELECT GEN_ID(%s, 1) FROM rdb$database',
43 $self->sql_maker->_quote($sequence)
49 sub _dbh_get_autoinc_seq {
50 my ($self, $dbh, $source, $col) = @_;
52 my $table_name = $source->from;
53 $table_name = $$table_name if ref $table_name;
54 $table_name = $self->sql_maker->quote_char ? $table_name : uc($table_name);
56 local $dbh->{LongReadLen} = 100000;
57 local $dbh->{LongTruncOk} = 1;
59 my $sth = $dbh->prepare(<<'EOF');
60 SELECT t.rdb$trigger_source
62 WHERE t.rdb$relation_name = ?
63 AND t.rdb$system_flag = 0 -- user defined
64 AND t.rdb$trigger_type = 1 -- BEFORE INSERT
66 $sth->execute($table_name);
68 while (my ($trigger) = $sth->fetchrow_array) {
70 { /^"([^"]+)/ ? $1 : uc($_) }
71 $trigger =~ /new\.("?\w+"?)/ig
74 my ($quoted, $generator) = $trigger =~
75 /(?:gen_id\s* \( \s* |next \s* value \s* for \s*)(")?(\w+)/ix;
78 $generator = uc $generator unless $quoted;
82 $self->sql_maker->quote_char ? ($_ eq $col) : (uc($_) eq uc($col))
91 my ($self, $name) = @_;
93 $self->_dbh->do("SAVEPOINT $name");
96 sub _exec_svp_release {
97 my ($self, $name) = @_;
99 $self->_dbh->do("RELEASE SAVEPOINT $name");
102 sub _exec_svp_rollback {
103 my ($self, $name) = @_;
105 $self->_dbh->do("ROLLBACK TO SAVEPOINT $name")
108 # http://www.firebirdfaq.org/faq223/
109 sub _get_server_version {
112 return $self->_get_dbh->selectrow_array(q{
113 SELECT rdb$get_context('SYSTEM', 'ENGINE_VERSION') FROM rdb$database
117 package # hide from PAUSE
118 DBIx::Class::Storage::DBI::InterBase::DateTime::Format;
120 my $timestamp_format = '%Y-%m-%d %H:%M:%S.%4N'; # %F %T
121 my $date_format = '%Y-%m-%d';
123 my ($timestamp_parser, $date_parser);
127 require DateTime::Format::Strptime;
128 $timestamp_parser ||= DateTime::Format::Strptime->new(
129 pattern => $timestamp_format,
132 return $timestamp_parser->parse_datetime(shift);
135 sub format_datetime {
137 require DateTime::Format::Strptime;
138 $timestamp_parser ||= DateTime::Format::Strptime->new(
139 pattern => $timestamp_format,
142 return $timestamp_parser->format_datetime(shift);
147 require DateTime::Format::Strptime;
148 $date_parser ||= DateTime::Format::Strptime->new(
149 pattern => $date_format,
152 return $date_parser->parse_datetime(shift);
157 require DateTime::Format::Strptime;
158 $date_parser ||= DateTime::Format::Strptime->new(
159 pattern => $date_format,
162 return $date_parser->format_datetime(shift);
171 C<last_insert_id> support by default only works for Firebird versions 2 or
172 greater, L<auto_nextval|DBIx::Class::ResultSource/auto_nextval> however should
173 work with earlier versions.
177 =head1 FURTHER QUESTIONS?
179 Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
181 =head1 COPYRIGHT AND LICENSE
183 This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
184 by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
185 redistribute it and/or modify it under the same terms as the
186 L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.