libtext-dokuwiki-perl/lib/Text/Dokuwiki/Render.pm

package Text::Dokuwiki::Render;

use strict;
use warnings;
use utf8;

sub new {
  my ($class) = @_;
  my $self = {
    list_depth => 0,
    trace => [],
  };

  return bless($self, $class);
}

sub treewalk {
  my ($self, @tree) = @_;
  my $output = "";

  foreach my $part (@tree) {
    if (ref $part eq 'ARRAY') {
      my ($tag, $attrs, @rest) = @{$part};
      if ($self->SUPER::can($tag)) {
        push @{ $self->{trace} }, $tag;
        $output .= $self->$tag($attrs, $self->treewalk(@rest));
        pop  @{ $self->{trace} };
      } elsif ($self->SUPER::can('default')){
        push @{ $self->{trace} }, $tag;
        $output .= $self->default($tag, $attrs, $self->treewalk(@rest));
        pop  @{ $self->{trace} };
      } else {
        die("Unimplemented handler for tag: $tag\n");
      }
      next;
    }
    $output .= $part;
  }

  return $output;
}

1;