# Test 1: $dbh->quote
sub test{
	my $self = shift;
	my $query = shift;
	#$query = $self->{DBH}->quote($query);
	my $sql = qq(SELECT oid FROM objects WHERE oid=$query);
	my $ref = [];
	eval{
		my $sth = $self->{DBH}->prepare($sql);
		$sth->execute();
		$ref = $sth->fetchall_arrayref;
	};
	return $@ ? undef : $ref;
}

# Test 2: Platzhalter
sub test2{
	my $self = shift;
	my $query = shift;
	my $sql = qq(SELECT oid FROM objects WHERE oid=?);
	my $ref = [];
	eval{
		my $sth = $self->{DBH}->prepare($sql);
		$sth->execute($query);
		$ref = $sth->fetchall_arrayref;
	};
	return $@ ? undef : $ref;
}