—

              
package Treex::Block::Write::Text;
{
  $Treex::Block::Write::Text::VERSION = '0.08302_1';
}
use Moose;
use Treex::Core::Common;
extends 'Treex::Block::Write::BaseTextWriter';
has '+language' => ( required => 1 );
has '+extension' => ( default => '.txt' );
sub process_document {
    my ( $self, $doc ) = @_;
    $self->_prepare_file_handle($doc);    # open the output file handle
    my $doczone = $doc->get_zone( $self->language, $self->selector );
    print $doczone->text;
    return;
}
1;
__END__
HideShow 47 lines of Pod
=head1 NAME
Treex::Block::Write::Text
=head1 VERSION
version 0.08302_1
=head1 DESCRIPTION
Document writer for plain text format.
The text is taken from the document's attribute C<text>,
if you want to save the sentences stored in L<bundles|Treex::Core::Bundle>,
use L<Treex::Block::Write::Sentences>.
=head1 ATTRIBUTES
=over
=item to
space or comma separated list of filenames, or C<-> for STDOUT 
=back
=head1 METHODS
=over
=item process_document
Saves the 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.