2 |
|
|
3 |
use strict; |
use strict; |
4 |
use warnings; |
use warnings; |
5 |
use base qw( Class::Accessor Jifty::Object ); |
use base qw( Class::Accessor ); |
6 |
Grep::Search->mk_accessors( qw( analyzer store writer create index_path ) ); |
Grep::Search->mk_accessors( qw( analyzer store writer create index_path ) ); |
7 |
|
|
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
23 |
|
|
24 |
=cut |
=cut |
25 |
|
|
26 |
|
sub log { Jifty->web->log } |
27 |
|
|
28 |
sub new { |
sub new { |
29 |
my $class = shift; |
my $class = shift; |
30 |
my $self = $class->SUPER::new(@_); |
my $self = $class->SUPER::new(@_); |
50 |
return $self; |
return $self; |
51 |
} |
} |
52 |
|
|
|
|
|
53 |
=head2 add |
=head2 add |
54 |
|
|
55 |
$search->add( $record, $owner_id ); |
$search->add( $record, $owner_id ); |
182 |
undef $hits; |
undef $hits; |
183 |
undef $query; |
undef $query; |
184 |
undef $parser; |
undef $parser; |
|
$searcher->close; |
|
185 |
undef $searcher; |
undef $searcher; |
186 |
|
|
187 |
|
$self->log->debug("finished Lucene search"); |
188 |
|
|
189 |
return $collection; |
return $collection; |
190 |
} |
} |
191 |
|
|
202 |
$self->writer->close; |
$self->writer->close; |
203 |
} |
} |
204 |
|
|
205 |
# $self->writer( undef ); |
$self->log->debug("finish"); |
206 |
# $self->store( undef ); |
|
207 |
# $self->create( undef ); |
undef $self; |
|
# $self->analyzer( undef ); |
|
208 |
|
|
209 |
return; |
return; |
210 |
} |
} |