simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

DBD-SQLite: started using install_method(); ported last_insert_rowid as the first attempt

Browse source
This commit is contained in:
Kenichi Ishigaki 2009-05-05 09:02:02 +00:00
parent 7315981580
commit 16d3af7794
3 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
SQLite.xs
View file

@ -24,6 +24,8 @@ list_tables(dbh)
IV
last_insert_rowid(dbh)
SV *dbh
ALIAS:
DBD::SQLite::db::sqlite_last_insert_rowid = 1
CODE:
{
D_imp_dbh(dbh);

12
lib/DBD/SQLite.pm
View file

@ -24,13 +24,23 @@ BEGIN {
__PACKAGE__->bootstrap($VERSION);
my $methods_are_installed;
sub driver {
$drh or
return $drh if $drh;
if (!$methods_are_installed && $DBI::VERSION >= 1.608) {
DBI->setup_driver('DBD::SQLite');
DBD::SQLite::db->install_method('sqlite_last_insert_rowid');
$methods_are_installed++;
}
$drh = DBI::_new_drh( "$_[0]::dr", {
Name => 'SQLite',
Version => $VERSION,
Attribution => 'DBD::SQLite by Matt Sergeant et al',
} );
return $drh;
}
sub CLONE {

8
t/04_insert.t
View file

@ -7,7 +7,7 @@ BEGIN {
}
use t::lib::Test;
use Test::More tests => 12;
use Test::More tests => 14;
use Test::NoWarnings;
my $dbh = connect_ok();
@ -30,6 +30,12 @@ SCOPE: {
is( $dbh->last_insert_id(undef, undef, undef, undef), 4 );
is( $dbh->func('last_insert_rowid'), 4, 'last_insert_rowid should be 4' );
}
SKIP: {
skip( 'method installation requires DBI v1.608', 2 ) if $DBI::VERSION < 1.608;
can_ok($dbh, 'sqlite_last_insert_rowid');
is( $dbh->sqlite_last_insert_rowid, 4, 'last_insert_rowid should be 4' );
}
}
is( $dbh->do("delete from f where f1='test'"), 3 );