Clarification cascade_* attribute defaults documentation
[dbsrgits/DBIx-Class-Historic.git] / 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;