Commit | Line | Data |
2a57124d |
1 | package DBIx::Class::Storage::DBI::ODBC::DB2_400_SQL; |
d23f094e |
2 | use strict; |
3 | use warnings; |
4 | |
2a57124d |
5 | use base qw/DBIx::Class::Storage::DBI::ODBC/; |
d23f094e |
6 | |
7 | sub last_insert_id |
8 | { |
9 | my ($self) = @_; |
10 | |
a9f32dbc |
11 | $self->dbh_do(sub { |
12 | my $dbh = shift; |
d23f094e |
13 | |
a9f32dbc |
14 | # get the schema/table separator: |
15 | # '.' when SQL naming is active |
16 | # '/' when system naming is active |
17 | my $sep = $dbh->get_info(41); |
18 | my $sth = $dbh->prepare_cached( |
19 | "SELECT IDENTITY_VAL_LOCAL() FROM SYSIBM${sep}SYSDUMMY1", {}, 3); |
20 | $sth->execute(); |
d23f094e |
21 | |
a9f32dbc |
22 | my @res = $sth->fetchrow_array(); |
d23f094e |
23 | |
a9f32dbc |
24 | return @res ? $res[0] : undef; |
25 | }); |
d23f094e |
26 | } |
27 | |
32a46300 |
28 | sub _sql_maker_opts { |
f1f56aad |
29 | my ($self) = @_; |
30 | |
a9f32dbc |
31 | $self->dbh_do(sub { |
32 | { limit_dialect => 'FetchFirst', name_sep => shift->get_info(41) } |
33 | }); |
f1f56aad |
34 | } |
35 | |
d23f094e |
36 | 1; |
37 | |
38 | =head1 NAME |
39 | |
f1f56aad |
40 | DBIx::Class::Storage::DBI::ODBC::DB2_400_SQL - Support specific to DB2/400 |
d23f094e |
41 | over ODBC |
42 | |
43 | =head1 SYNOPSIS |
44 | |
45 | # In your table classes |
46 | __PACKAGE__->load_components(qw/PK::Auto Core/); |
47 | __PACKAGE__->set_primary_key('id'); |
48 | |
d23f094e |
49 | |
50 | =head1 DESCRIPTION |
51 | |
f1f56aad |
52 | This class implements support specific to DB2/400 over ODBC, including |
53 | auto-increment primary keys, SQL::Abstract::Limit dialect, and name separator |
32a46300 |
54 | for connections using either SQL naming or System naming. |
d23f094e |
55 | |
56 | |
57 | =head1 AUTHORS |
58 | |
2a57124d |
59 | Marc Mims C<< <marc@sssonline.com> >> |
d23f094e |
60 | |
aa8b8190 |
61 | Based on DBIx::Class::Storage::DBI::DB2 by Jess Robinson. |
62 | |
d23f094e |
63 | =head1 LICENSE |
64 | |
65 | You may distribute this code under the same terms as Perl itself. |
66 | |
67 | =cut |