DBIx-FullTextSearch

 view release on metacpan or  search on metacpan

lib/DBIx/FullTextSearch/Blob.pm  view on Meta::CPAN

57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
        }
 
        return $num_words;
}
 
sub delete_document {
        my $self = shift;
        for my $id (@_) { $self->update_document($id, {}); }
}
 
sub update_document {
        my ($self, $id, $words) = @_;
        my $fts = $self->{'fts'};
        my $dbh = $fts->{'dbh'};
        my $data_table = $fts->{'data_table'};
 
        my $insert_sth = ( defined $self->{'insert_sth'}
                ? $self->{'insert_sth'}
                : $self->{'insert_sth'} = $dbh->prepare("
                        insert into $data_table values (?, ?)") );

lib/DBIx/FullTextSearch/BlobFast.pm  view on Meta::CPAN

16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
        my $value = '';
        for my $id (@_) {
                $value .= pack $packstring, $id, 0;
        }
        $dbh->do("
                update $data_table set idx = concat(idx, ?)
                ", {}, $value);
        1;
}
 
sub update_document {
        my $self = shift;
        $self->delete_document($_[0]);
        $self->add_document(@_);
}
 
sub contains_hashref {
        my $self = shift;
        my $fts = $self->{'fts'};
        my $dbh = $fts->{'dbh'};
        my $data_table = $fts->{'data_table'};

lib/DBIx/FullTextSearch/Column.pm  view on Meta::CPAN

107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
 
sub delete_document {
        my $self = shift;
        my $fts = $self->{'fts'};
        my $dbh = $fts->{'dbh'};
        my $data_table = $fts->{'data_table'};
        my $sth = $dbh->prepare("delete from $data_table where doc_id = ?");
        for my $id (@_) { $sth->execute($id); }
}
 
sub update_document {
        my ($self, $id, $words) = @_;
        $self->delete_document($id);
        $self->add_document($id, $words);
}
 
sub contains_hashref {
        my $self = shift;
        my $fts = $self->{'fts'};
        my $dbh = $fts->{'dbh'};
        my $data_table = $fts->{'data_table'};

lib/DBIx/FullTextSearch/Phrase.pm  view on Meta::CPAN

94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
    $num_words++;
  };
  $dbh->do("insert into $word_id_table values " . 
           join (',',@widshandler),undef,@wids) if @wids;
  $dbh->do("unlock tables");
  $dbh->do("insert into $data_table values " . 
           join (',',@datahandler),undef,@data) if @data;
  return $num_words;
}
 
sub update_document {
        my ($self, $id, $words) = @_;
        my $fts = $self->{'fts'};
        my $dbh = $fts->{'dbh'};
        my $data_table = $fts->{'data_table'};
        $dbh->do("delete from $data_table where doc_id = ?", {}, $id);
 
        $self->add_document($id, $words);
}
 
sub contains_hashref {