lib/DBIx/Class/SQLAHacks/SQLite.pm

   1 package # Hide from PAUSE
   2   DBIx::Class::SQLAHacks::SQLite;
   3
   4 use base qw( DBIx::Class::SQLAHacks );
   5 use Carp::Clan qw/^DBIx::Class|^SQL::Abstract/;
   6
   7 #
   8 # SQLite does not understand SELECT ... FOR UPDATE
   9 # Adjust SQL here instead
  10 #
  11 sub select {
  12   my $self = shift;
  13   local $self->{_dbic_rs_attrs}{for} = undef;
  14   return $self->SUPER::select (@_);
  15 }
  16
  17 1;