[dbsrgits/DBIx-Class-Historic.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
# Disable it here
#
sub _parse_rs_attrs {
  my ($self, $attrs) = @_;

  return $self->SUPER::_parse_rs_attrs ($attrs)
    if ref $attrs ne 'HASH';

  local $attrs->{for};
  return $self->SUPER::_parse_rs_attrs ($attrs);
}

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
a6b68a60	9	# Disable it here
09cedb88	10	#
a6b68a60	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);
09cedb88	19	}
	20
	21	1;