File Coverage

blib/lib/Text/Translate/Format/Simple.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	34	34	100.0

package Text::Translate::Format::Simple;
BEGIN {
  $Text::Translate::Format::Simple::VERSION = '0.1.0_01';
}
# ABSTRACT: simple text handler for Text::Translate::Format

use strict;
use warnings;
use Carp;
use English qw( -no_match_vars );

use base 'Text::Translate::Format';

# Module implementation here
sub text_to_paragraphs {
   my ($self) = @_;
   (my $text = $self->text()) =~ s/\A\n+|\n+\z//mxs;
   my @paragraphs = split /\n\s*\n/, $text;
   $self->paragraphs(\@paragraphs);
   return $self;
}

sub paragraphs_to_text {
   my ($self) = @_;
   $self->text(join("\n\n", $self->paragraphs()) . "\n");
   return $self;
}

1;


=pod

=head1 NAME

Text::Translate::Format::Simple - simple text handler for Text::Translate::Format

=head1 VERSION

version 0.1.0_01

=head1 DESCRIPTION

This module fits into the L system for handling
conversion between simple text documents and paragraphs (suitable for
translating via L) and vice-versa.

=head1 METHODS

=head2 text_to_paragraphs

Overridden method from L.

=head2 paragraphs_to_text

Overridden method from L.

=head1 AUTHOR

Flavio Poletti

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2010 by Flavio Poletti.

This module is free software.  You can redistribute it and/or
modify it under the terms of the Artistic License 2.0.

This program is distributed in the hope that it will be useful,
but without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=cut


__END__