# __PACKAGE__->load_components(qw/PK::Auto/);
-sub last_insert_id
-{
- my ($self) = @_;
+sub _dbh_last_insert_id {
+ my ($self, $dbh, $source, $col) = @_;
- my $dbh = $self->_dbh;
- my $sth = $dbh->prepare_cached("VALUES(IDENTITY_VAL_LOCAL())", {}, 3);
+ my $sth = $dbh->prepare_cached('VALUES(IDENTITY_VAL_LOCAL())', {}, 3);
$sth->execute();
my @res = $sth->fetchrow_array();
return @res ? $res[0] : undef;
-
}
+sub datetime_parser_type { "DateTime::Format::DB2"; }
+
1;
-=head1 NAME
+=head1 NAME
DBIx::Class::Storage::DBI::DB2 - Automatic primary key class for DB2