File Coverage

lib/Convert/Wiki/Node/Line.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition	3	6	50.0
subroutine	7	7	100.0
pod			n/a
total	36	39	92.3

#############################################################################
# (c) by Tels 2004. Part of Convert::Wiki
#
# represents a horizontal line (or ruler)
#############################################################################

package Convert::Wiki::Node::Line;

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 _init
  {
  my ($self,$args) = @_;

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

  $self->{txt} = "----\n\n";

  $self;
  }

sub _remove_me
  {
  # if we are the first node, or a headline follows us, skip
  my $self = shift;

  my $next = $self->next();

  if (!defined $self->prev() || (defined $next && $next->type() =~ /head/))
    {
    return 1;
    }
  0;
  }

1;
__END__