This file is indexed.

/usr/share/perl5/Plucene/Search/Searcher.pm is in libplucene-perl 1.25-3.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
package Plucene::Search::Searcher;

=head1 NAME 

Plucene::Search::Searcher - base class for searchers

=head1 DESCRIPTION

Abstract base class for searchers.

Searching is the operation of locating a subset of the documents that 
contains desired content or that their attributes match some specification.

The input for a search operation is a 'query' that specifies a criteria for 
selecting the documents and its output is a list of documents ('hits') that 
matched that criteria.

The hit list is typically ordered by some measure of relevancy (called 
'ranking' or 'scoring') and may contain only a subset of the set of documents 
that matched the query (typically the ones with the highest scored documents).

The search operation is performed on an 'index' which is a specialized 
database that contains a pre compiled information of the document set. 
The index database is optimized for locating quickly documents that contains 
certain words or terms. 

=head1 METHODS

=cut

use strict;
use warnings;

use Plucene::Search::Hits;

=head2 doc_freq / max_doc / doc / _search_hc search_top

These must be defined in a subclas

=cut

sub doc_freq   { die "doc_freq must be defined in a subclass" }
sub max_doc    { die "max_doc must be defined in a subclass" }
sub doc        { die "doc must be defined in a subclass" }
sub _search_hc { die "_search_hc must be defined in a subclass" }
sub search_top { die "search_top must be defined in a subclass" }

=head2 search

	my Plucene::Search::Hits $hits = $searcher->new($query, $filter);

This will return the Plucene::Search::Hits object for the passed in query
and filter. At this stage, filter is optional.

=cut

sub search {
	my ($self, $query, $filter) = @_;

	# $filter may be undefined, that's OK
	return Plucene::Search::Hits->new({
			searcher => $self,
			query    => $query,
			filter   => $filter
		});
}

=head2 search_hc

=cut

sub search_hc {
	my ($self, $query, $hc) = @_;
	$self->_search_hc($query, undef, $hc);
}

1;