#===============================================================================
#
#  DESCRIPTION:  Class for semantic blocks
#
#       AUTHOR:  Aliaksandr P. Zahatski, <zahatski@gmail.com>
#===============================================================================
package Perl6::Pod::Block::SEMANTIC;
use strict;
use warnings;
use Perl6::Pod::Block;
use base 'Perl6::Pod::Block';

sub to_xhtml {
 my ( $self, $to )  = @_;
 $to->switch_head_level(1);
 $to->w->raw('<h1>')->print($self->name)->raw('</h1>');
 $to->visit_childs($self);
}
1;