############################################################################# # (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__ =head1 NAME Convert::Wiki::Node::Para - Represents a text paragraph node =head1 SYNOPSIS use Convert::Wiki::Node::Para; my $para = Convert::Wiki::Node->new( txt => 'Foo is a foobar.', type => 'para' ); print $para->as_wiki(); =head1 DESCRIPTION A C represents a normal text paragraph. =head1 EXPORT None by default. =head1 SEE ALSO L. =head1 AUTHOR Tels L =head1 COPYRIGHT AND LICENSE Copyright (C) 2004 by Tels This library is free software; you can redistribute it and/or modify it under the terms of the GPL. See the LICENSE file for more details. =cut