Commit | Line | Data |
843f8ecd |
1 | package DBIx::Class::Storage::DBI::DB2; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use base qw/DBIx::Class::Storage::DBI/; |
7 | |
8 | # __PACKAGE__->load_components(qw/PK::Auto/); |
9 | |
10 | sub last_insert_id |
11 | { |
12 | my ($self) = @_; |
13 | |
14 | my $dbh = $self->_dbh; |
15 | my $sth = $dbh->prepare_cached("VALUES(IDENTITY_VAL_LOCAL())", {}, 3); |
16 | $sth->execute(); |
17 | |
18 | my @res = $sth->fetchrow_array(); |
19 | |
20 | return @res ? $res[0] : undef; |
21 | |
22 | } |
23 | |
24 | 1; |
25 | |
26 | =head1 NAME |
27 | |
28 | DBIx::Class::Storage::DBI::DB2 - Automatic primary key class for DB2 |
29 | |
30 | =head1 SYNOPSIS |
31 | |
32 | # In your table classes |
33 | __PACKAGE__->load_components(qw/PK::Auto Core/); |
34 | __PACKAGE__->set_primary_key('id'); |
35 | |
36 | =head1 DESCRIPTION |
37 | |
38 | This class implements autoincrements for DB2. |
39 | |
40 | =head1 AUTHORS |
41 | |
42 | Jess Robinson |
43 | |
44 | =head1 LICENSE |
45 | |
46 | You may distribute this code under the same terms as Perl itself. |
47 | |
48 | =cut |