1 package DBIx::Class::Storage::DBI::DB2;
6 use base qw/DBIx::Class::Storage::DBI/;
9 __PACKAGE__->datetime_parser_type('DateTime::Format::DB2');
10 __PACKAGE__->sql_quote_char ('"');
12 # lazy-default kind of thing
16 my $v = $self->next::method(@_);
18 if (! defined $v and ! @_) {
19 $v = $self->next::method($self->_dbh_get_info('SQL_QUALIFIER_NAME_SEPARATOR') || '.');
25 sub sql_limit_dialect {
28 my $v = $self->next::method(@_);
30 if (! defined $v and ! @_) {
31 $v = $self->next::method(
32 ($self->_server_info->{normalized_dbms_version}||0) >= 5.004
41 sub _dbh_last_insert_id {
42 my ($self, $dbh, $source, $col) = @_;
44 my $name_sep = $self->sql_name_sep;
46 my $sth = $dbh->prepare_cached(
47 # An older equivalent of 'VALUES(IDENTITY_VAL_LOCAL())', for compat
48 # with ancient DB2 versions. Should work on modern DB2's as well:
49 # http://publib.boulder.ibm.com/infocenter/db2luw/v8/topic/com.ibm.db2.udb.doc/admin/r0002369.htm?resultof=%22%73%79%73%64%75%6d%6d%79%31%22%20
50 "SELECT IDENTITY_VAL_LOCAL() FROM sysibm${name_sep}sysdummy1",
56 my @res = $sth->fetchrow_array();
58 return @res ? $res[0] : undef;
63 DBIx::Class::Storage::DBI::DB2 - IBM DB2 support for DBIx::Class
67 This class implements autoincrements for DB2, sets the limit dialect to
68 RowNumberOver over FetchFirst depending on the availability of support for
69 RowNumberOver, queries the server name_sep from L<DBI> and sets the L<DateTime>
70 parser to L<DateTime::Format::DB2>.
72 =head1 FURTHER QUESTIONS?
74 Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
76 =head1 COPYRIGHT AND LICENSE
78 This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
79 by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
80 redistribute it and/or modify it under the same terms as the
81 L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.