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 # Disable it here
  10 #
  11 sub _parse_rs_attrs {
  12   my ($self, $attrs) = @_;
  13
  14   return $self->SUPER::_parse_rs_attrs ($attrs)
  15     if ref $attrs ne 'HASH';
  16
  17   local $attrs->{for};
  18   return $self->SUPER::_parse_rs_attrs ($attrs);
  19 }
  20
  21 1;