[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / PK / Auto / DB2.pm

package DBIx::Class::PK::Auto::DB2;

use strict;
use warnings;

use base qw/DBIx::Class/;

__PACKAGE__->load_components(qw/PK::Auto/);

sub last_insert_id
{
    my ($self) = @_;

    my $dbh = $self->result_source->storage->dbh;
    my $sth = $dbh->prepare_cached("VALUES(IDENTITY_VAL_LOCAL())");
    $sth->execute();

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

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

1;
Commit	Line	Data
f6a3f5ae	1	package DBIx::Class::PK::Auto::DB2;
	2
	3	use strict;
	4	use warnings;
	5
	6	use base qw/DBIx::Class/;
	7
	8	__PACKAGE__->load_components(qw/PK::Auto/);
	9
	10	sub last_insert_id
	11	{
	12	my ($self) = @_;
	13
66d9ef6b	14	my $dbh = $self->result_source->storage->dbh;
f6a3f5ae	15	my $sth = $dbh->prepare_cached("VALUES(IDENTITY_VAL_LOCAL())");
	16	$sth->execute();
	17
	18	my @res = $sth->fetchrow_array();
	19
	20	return @res ? $res[0] : undef;
	21
	22	}
f6359592	23
f6359592	24	1;