File Coverage

blib/lib/Plucene/SearchEngine/Index/Text.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch	2	6	33.3
condition			n/a
subroutine	2	2	100.0
pod	0	1	0.0
total	14	21	66.6

package Plucene::SearchEngine::Index::Text;
use base 'Plucene::SearchEngine::Index::Base';

=head1 NAME

Plucene::SearchEngine::Index::Text - Backend for plain text files

=head1 DESCRIPTION

This backend sucks a plain text file into the C field.

=cut

sub gather_data_from_file {
    my ($self, $file) = @_;
    my $in;
    if (exists $self->{encoding}) {
        my $encoding = $self->{encoding}{data}[0];
        open $in, "<:encoding($encoding)", $file or die $!;
    } else {
        open $in, $file or die $!;
    }
    while (<$in>) {
        $self->add_data("text" => "UnStored" => $_);
    }
    return $self;
}
1;