Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
ADO	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Firebird	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ODBC	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Oracle	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Replicated	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
SQLAnywhere	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Sybase	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ACCESS.pm	3.55 KB	-rw-rw-rw-	2019-11-06 10:31
ADO.pm	2.34 KB	-rw-rw-rw-	2020-03-29 22:33
AutoCast.pm	2.22 KB	-rw-rw-rw-	2018-04-30 13:43
Cursor.pm	6.22 KB	-rw-rw-rw-	2020-03-29 22:33
DB2.pm	2.1 KB	-rw-rw-rw-	2019-11-06 10:31
Firebird.pm	1007 B	-rw-rw-rw-	2018-04-30 13:43
IdentityInsert.pm	1.6 KB	-rw-rw-rw-	2020-03-29 22:33
Informix.pm	4.25 KB	-rw-rw-rw-	2018-04-30 13:43
InterBase.pm	4.08 KB	-rw-rw-rw-	2020-03-29 22:33
MSSQL.pm	10 KB	-rw-rw-rw-	2020-03-29 22:33
NoBindVars.pm	3.21 KB	-rw-rw-rw-	2020-03-29 22:33
ODBC.pm	1.89 KB	-rw-rw-rw-	2018-04-30 13:43
Oracle.pm	1.39 KB	-rw-rw-rw-	2019-11-06 10:31
Pg.pm	8.1 KB	-rw-rw-rw-	2020-03-29 22:33
Replicated.pm	26.05 KB	-rw-rw-rw-	2020-03-29 22:33
SQLAnywhere.pm	5.43 KB	-rw-rw-rw-	2020-03-29 22:33
SQLite.pm	12.09 KB	-rw-rw-rw-	2020-03-29 22:33
Sybase.pm	3.13 KB	-rw-rw-rw-	2020-06-13 20:54
UniqueIdentifier.pm	2.97 KB	-rw-rw-rw-	2018-04-30 13:43
mysql.pm	6.28 KB	-rw-rw-rw-	2020-03-29 22:33

Rename

package DBIx::Class::Storage::DBI::DB2;

use strict;
use warnings;

use base qw/DBIx::Class::Storage::DBI/;
use mro 'c3';

__PACKAGE__->datetime_parser_type('DateTime::Format::DB2');
__PACKAGE__->sql_quote_char ('"');

# lazy-default kind of thing
sub sql_name_sep {
  my $self = shift;

my $v = $self->next::method(@_);

if (! defined $v and ! @_) {
    $v = $self->next::method($self->_dbh_get_info('SQL_QUALIFIER_NAME_SEPARATOR') || '.');
  }

return $v;
}

sub sql_limit_dialect {
  my $self = shift;

my $v = $self->next::method(@_);

if (! defined $v and ! @_) {
    $v = $self->next::method(
      ($self->_server_info->{normalized_dbms_version}||0) >= 5.004
        ? 'RowNumberOver'
        : 'FetchFirst'
    );
  }

return $v;
}

sub _dbh_last_insert_id {
  my ($self, $dbh, $source, $col) = @_;

my $name_sep = $self->sql_name_sep;

my $sth = $dbh->prepare_cached(
    # An older equivalent of 'VALUES(IDENTITY_VAL_LOCAL())', for compat
    # with ancient DB2 versions. Should work on modern DB2's as well:
    # 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
    "SELECT IDENTITY_VAL_LOCAL() FROM sysibm${name_sep}sysdummy1",
    {},
    3
  );
  $sth->execute();

my @res = $sth->fetchrow_array();

return @res ? $res[0] : undef;
}

=head1 NAME

DBIx::Class::Storage::DBI::DB2 - IBM DB2 support for DBIx::Class

=head1 DESCRIPTION

This class implements autoincrements for DB2, sets the limit dialect to
RowNumberOver over FetchFirst depending on the availability of support for
RowNumberOver, queries the server name_sep from L<DBI> and sets the L<DateTime>
parser to L<DateTime::Format::DB2>.

=head1 FURTHER QUESTIONS?

Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.

=head1 COPYRIGHT AND LICENSE

This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
redistribute it and/or modify it under the same terms as the
L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.

=cut

# vim:sts=2 sw=2: