Perl6::Pod::To::XHTML::ProcessHeadings - convert headings to tags

    use Perl6::Pod::To::XHTML::ProcessHeadings;
    $self->{out_put} =
    create_pipe( 'Perl6::Pod::To::XHTML::ProcessHeadings', $self->{out_put});

package Perl6::Pod::To::XHTML::ProcessHeadings;

#$Id$

use warnings;
use strict;
use XML::ExtOn;
use base 'XML::ExtOn';

sub on_start_element {
    my ($self, $el ) = @_;
    my $lname = $el->local_name;
    return $el if exists $el->{XHTML_HEAD};
    if ($lname eq 'headlevel') {
        #save current level
        $self->{CURRENT_LEVEL} = $el->attrs_by_name->{level};
        %{ $el->attrs_by_name  } = ();
        $el->delete_element;
    } elsif ($lname =~ /^head/) {
        #set h to current level
        $el->local_name('h'.$self->{CURRENT_LEVEL});
    }
    $el;
}
1;