File Coverage

lib/Convert/Wiki/Node/Item.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod			n/a
total	31	31	100.0

#############################################################################
# (c) by Tels 2004. Part of Convert::Wiki
#
# represents an item in a list (aka  or *)
#############################################################################

package Convert::Wiki::Node::Item;

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"
  my $trailing = "\n";

  # add a new line if the next node is not an item
  my $next = $self->{next};
  $trailing .= "\n" if defined $next && $next->type() ne 'item';

  '* ' . $txt . $trailing;
  }

1;
__END__