/usr/share/perl5/Plucene/Document/Field.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 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 | package Plucene::Document::Field;
=head1 NAME
Plucene::Document::Field - A field in a Plucene::Document
=head1 SYNOPSIS
my $field = Plucene::Document::Field->Keyword($name, $string);
my $field = Plucene::Document::Field->Text($name, $string);
my $field = Plucene::Document::Field->UnIndexded($name, $string);
my $field = Plucene::Document::Field->UnStored($name, $string);
=head1 DESCRIPTION
Each Plucene::Document is made up of Plucene::Document::Field
objects. Each of these fields can be stored, indexed or tokenised.
=head1 FIELDS
=cut
use strict;
use warnings;
use base qw(Class::Accessor::Fast);
__PACKAGE__->mk_accessors(
qw(name string is_stored is_indexed is_tokenized reader));
=head2 name
Returns the name of the field.
=head2 string
Returns the value of the field.
=head2 is_stored
Returns true if the field is or will be stored, or false if it was
created with C<UnStored>.
=head2 is_indexed
Returns true if the field is or will be indexed, or false if it was
created with C<UnIndexed>.
=head2 is_tokenized
Returns true if the field is or will be tokenized, or false if it was
created with C<UnIndexed> or C<Keyword>.
=cut
use Carp qw(confess);
=head1 METHODS
=head2 Keyword
my $field = Plucene::Document::Field->Keyword($name, $string);
This will make a new Plucene::Document::Field object that is stored
and indexed, but not tokenised.
=cut
sub Keyword {
my ($self, $name, $string) = @_;
return $self->new({
name => $name,
string => $string,
is_stored => 1,
is_indexed => 1,
is_tokenized => 0
});
}
=head2 UnIndexed
my $field = Plucene::Document::Field->UnIndexded($name, $string);
This will make a new Plucene::Document::Field object that is stored, but
not indexed or tokenised.
=cut
sub UnIndexed {
my ($self, $name, $string) = @_;
return $self->new({
name => $name,
string => $string,
is_stored => 1,
is_indexed => 0,
is_tokenized => 0
});
}
=head2 Text
my $field = Plucene::Document::Field->Text($name, $string);
This will make a new Plucene::Document::Field object that is stored,
indexed and tokenised.
=cut
sub Text {
my ($self, $name, $string) = @_;
return $self->new({
name => $name,
string => $string,
is_stored => 1,
is_indexed => 1,
is_tokenized => 1
});
}
=head2 UnStored
my $field = Plucene::Document::Field->UnStored($name, $string);
This will make a new Plucene::Document::Field object that isn't stored,
but is indexed and tokenised.
=cut
sub UnStored {
my ($self, $name, $string) = @_;
return $self->new({
name => $name,
string => $string,
is_stored => 0,
is_indexed => 1,
is_tokenized => 1
});
}
1;
|