This file is indexed.

/usr/share/perl5/Plucene/Analysis/Token.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
package Plucene::Analysis::Token;

=head1 NAME

Plucene::Analysis::Token - A term in a field

=head1 SYNOPSIS

=head1 DESCRIPTION

A Token is an occurence of a term from the text of a field.  It consists of
a term's text, the start and end offset of the term in the text of the field,
and a type string.

The start and end offsets permit applications to re-associate a token with
its source text, e.g., to display highlighted query terms in a document
browser, or to show matching text fragments in a KWIC (KeyWord In Context)
display, etc.

The type is an interned string, assigned by a lexical analyzer
(a.k.a. tokenizer), naming the lexical or syntactic class that the token
belongs to.  For example an end of sentence marker token might be implemented
with type "eos".  The default token type is "word".

=head1 METHODS

=cut

use strict;
use warnings;

use base 'Class::Accessor::Fast';

__PACKAGE__->mk_accessors(qw[type text start end]);

=head2 new

	my $token = Plucene::Analysis::Token->new({
		type  => $type,
		text  => $text,
		start => $start,
		end   => $end });

This will create a new Plucene::Analysis::Token object.
		
=cut

sub new {
	my ($class, %args) = @_;
	$args{type} ||= "word";
	$class->SUPER::new({%args});
}

1;