Commit | Line | Data |
---|---|---|
09cedb88 | 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; |