X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FSQLite.pm;h=bffd13312a5961b4cf4c320a1272aa97c66b49e3;hb=96736321fa6fb1efc9e471b037e508778188dbbe;hp=48d55fe315f6579108397e7657973e24da9bfff1;hpb=2361982d10699851d845aab7c4a73dde563f23ad;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/SQLite.pm b/lib/DBIx/Class/Storage/DBI/SQLite.pm index 48d55fe..bffd133 100644 --- a/lib/DBIx/Class/Storage/DBI/SQLite.pm +++ b/lib/DBIx/Class/Storage/DBI/SQLite.pm @@ -10,10 +10,7 @@ use POSIX 'strftime'; use File::Copy; use File::Spec; -sub _dbh_last_insert_id { - my ($self, $dbh, $source, $col) = @_; - $dbh->func('last_insert_rowid'); -} +__PACKAGE__->sql_maker_class('DBIx::Class::SQLAHacks::SQLite'); sub backup { @@ -48,23 +45,49 @@ sub backup } sub deployment_statements { - my $self = shift;; + my $self = shift; my ($schema, $type, $version, $dir, $sqltargs, @rest) = @_; $sqltargs ||= {}; - my $sqlite_version = $self->_get_dbh->{sqlite_version}; - - # numify, SQLT does a numeric comparison - $sqlite_version =~ s/^(\d+) \. (\d+) (?: \. (\d+)) .*/${1}.${2}/x; - - $sqltargs->{producer_args}{sqlite_version} = $sqlite_version; + if ( + ! exists $sqltargs->{producer_args}{sqlite_version} + and + my $dver = $self->_server_info->{normalized_dbms_version} + ) { + $sqltargs->{producer_args}{sqlite_version} = $dver; + } $self->next::method($schema, $type, $version, $dir, $sqltargs, @rest); } sub datetime_parser_type { return "DateTime::Format::SQLite"; } +=head2 connect_call_use_foreign_keys + +Used as: + + on_connect_call => 'use_foreign_keys' + +In L to turn on foreign key +(including cascading) support for recent versions of SQLite and L. + +Executes: + + PRAGMA foreign_keys = ON + +See L for more information. + +=cut + +sub connect_call_use_foreign_keys { + my $self = shift; + + $self->_do_query( + 'PRAGMA foreign_keys = ON' + ); +} + 1; =head1 NAME @@ -74,7 +97,7 @@ DBIx::Class::Storage::DBI::SQLite - Automatic primary key class for SQLite =head1 SYNOPSIS # In your table classes - __PACKAGE__->load_components(qw/PK::Auto Core/); + use base 'DBIx::Class::Core'; __PACKAGE__->set_primary_key('id'); =head1 DESCRIPTION