8 |
use KinoSearch::InvIndexer; |
use KinoSearch::InvIndexer; |
9 |
use KinoSearch::Analysis::PolyAnalyzer; |
use KinoSearch::Analysis::PolyAnalyzer; |
10 |
use Encode qw/from_to/; |
use Encode qw/from_to/; |
11 |
use Data::Dumper; |
use Data::Dump qw/dump/; |
12 |
use Storable; |
use Storable; |
13 |
|
|
14 |
=head1 NAME |
=head1 NAME |
80 |
|
|
81 |
my $log = $self->_get_logger; |
my $log = $self->_get_logger; |
82 |
|
|
83 |
#$log->debug("self: ", sub { Dumper($self) }); |
#$log->debug("self: ", sub { dump($self) }); |
84 |
|
|
85 |
foreach my $p (qw/index_path fields database/) { |
foreach my $p (qw/index_path fields database/) { |
86 |
$log->logdie("need $p") unless ($self->{$p}); |
$log->logdie("need $p") unless ($self->{$p}); |
185 |
|
|
186 |
_add_value($self,$log,$doc, 'uri', $uri); |
_add_value($self,$log,$doc, 'uri', $uri); |
187 |
|
|
188 |
$log->debug("ds = ", sub { Dumper($args->{'ds'}) } ); |
$log->debug("ds = ", sub { dump($args->{'ds'}) } ); |
189 |
|
|
190 |
# filter all tags which have type defined |
# filter all tags which have type defined |
191 |
my @tags = grep { |
my @tags = grep { |