File Coverage

lib/Convert/Wiki/Node/Mono.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	27	28	96.4

#############################################################################
# (c) by Tels 2004. Part of Convert::Wiki
#
# represents monospaced text blocks (aka )
#############################################################################

package Convert::Wiki::Node::Mono;

use 5.006001;
use strict;
use warnings;

use Convert::Wiki::Node;

use vars qw/$VERSION @ISA/;

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

$VERSION = '0.03';

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

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

  # " Foo bar is baz.\n Baz.\n"

  $txt =~ s/\n/\n /g;

  ' ' . $txt . "\n\n";
  }

sub interlink
  {
  # no interlinking in monospaced paragraphs!
  my ($self, $wiki) = @_;

  $self->{txt};
  }

1;
__END__