File Coverage

lib/Convert/Wiki/Node/Para.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	36	36	100.0

#############################################################################
# (c) by Tels 2004. Part of Convert::Wiki
#
# represents a text paragraph node
#############################################################################

package Convert::Wiki::Node::Para;

use 5.006001;
use strict;
use warnings;

use Convert::Wiki::Node;
use Text::Format;

use vars qw/$VERSION @ISA $formatter/;

@ISA = qw/Convert::Wiki::Node/;

$VERSION = '0.03';

#############################################################################

BEGIN
  {
  $formatter= Text::Format->new( {
    columns => 76,
    firstIndent => 0,
    } );
  }

sub _init
  {
  my ($self,$args) = @_;

  $self->SUPER::_init($args);

  $self->{txt} =~ s/\n/ /g;	# remove all newlines

  $self;
  }

sub _as_wiki
  {
  my ($self,$txt) = @_;

  $txt = $formatter->format($txt);

  $txt =~ s/\n\z//;		# last newline
  $txt .= "\n\n";
  }

1;
__END__