# 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;
}