File Coverage

lib/Convert/Wiki/Node/Head.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition	4	5	80.0
subroutine	7	7	100.0
pod			n/a
total	41	42	97.6

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

package Convert::Wiki::Node::Head;

use 5.006001;
use strict;
use warnings;

use Convert::Wiki::Node;

use vars qw/$VERSION @ISA/;

@ISA = qw/Convert::Wiki::Node/;
$VERSION = '0.04';

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

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

  $self->{level} ||= 1;

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

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

  # if we are the first headline, we get level 1
  if (!defined $self->prev_by_type('head'))
    {
    $self->{level} = 1;
    }
  # if we follow right on another headline, take it's level plus 1
  my $prev = $self->prev();
  if (defined $prev && $prev->type() eq 'head')
    {
    $self->{level} = $prev->{level} + 1;
    }

  my $p = '=' x ($self->{level} + 1);		# level 1: ==

  # "== Foo ==\n\n"
  $p . ' ' . $txt . ' ' . $p . "\n\n";
  }

1;
__END__