package Treex::Block::Read::Text;
{
$Treex::Block::Read::Text::VERSION = '0.08663';
}
use Moose;
use Treex::Core::Common;
extends 'Treex::Block::Read::BaseTextReader';
sub next_document {
my ($self) = @_;
my $text = $self->next_document_text();
return if !defined $text;
my $document = $self->new_document();
my $zone = $document->create_zone( $self->language, $self->selector );
$zone->set_text($text);
return $document;
}
1;
__END__
=head1 NAME
Treex::Block::Read::Text
=head1 VERSION
version 0.08663
=head1 DESCRIPTION
Document reader for plain text format.
The text is stored to the L<document|Treex::Core::Document>'s attribute C<text>,
if you want to load a text in "on sentence per line" format to
L<bundles|Treex::Core::Bundle>, use L<Treex::Block::Read::Sentences> instead.
=head1 ATTRIBUTES
=over
=item from
space or comma separated list of filenames
=back
=head1 METHODS
=over
=item next_document
Loads a document.
=back
=head1 AUTHOR
Martin Popel
=head1 COPYRIGHT AND LICENSE
Copyright © 2011 by Institute of Formal and Applied Linguistics, Charles University in Prague
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.