X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSQLAHacks%2FSQLite.pm;h=c9e4ad7f599c1609e9dad596cc542d58db402767;hb=534521dac62f6ab58e83a42d4e8e3cb586db464b;hp=e26078629f872c020af1506479bbb59d93771606;hpb=a6b68a60b376e918a6058f37cb1115ba3163a59b;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/SQLAHacks/SQLite.pm b/lib/DBIx/Class/SQLAHacks/SQLite.pm index e260786..c9e4ad7 100644 --- a/lib/DBIx/Class/SQLAHacks/SQLite.pm +++ b/lib/DBIx/Class/SQLAHacks/SQLite.pm @@ -1,21 +1,9 @@ package # Hide from PAUSE DBIx::Class::SQLAHacks::SQLite; -use base qw( DBIx::Class::SQLAHacks ); -use Carp::Clan qw/^DBIx::Class|^SQL::Abstract/; +use warnings; +use strict; -# -# SQLite does not understand SELECT ... FOR UPDATE -# Disable it here -# -sub _parse_rs_attrs { - my ($self, $attrs) = @_; - - return $self->SUPER::_parse_rs_attrs ($attrs) - if ref $attrs ne 'HASH'; - - local $attrs->{for}; - return $self->SUPER::_parse_rs_attrs ($attrs); -} +use base qw( DBIx::Class::SQLMaker::SQLite ); 1;