[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / SQLAHacks / SQLite.pm

package # Hide from PAUSE
  DBIx::Class::SQLAHacks::SQLite;

use base qw( DBIx::Class::SQLAHacks );
use Carp::Clan qw/^DBIx::Class|^SQL::Abstract/;

#
# SQLite does not understand SELECT ... FOR UPDATE
# Adjust SQL here instead
#
sub select {
  my $self = shift;
  local $self->{_dbic_rs_attrs}{for} = undef;
  return $self->SUPER::select (@_);
}

1;
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;